Menü
An- und Abmelden
Partner / Links
Beiträge anzeigen
1
Excel / Antw: Zelle x-mal in eine Spalte kopieren
« am: April 14, 2019, 11:36:50 Vormittag »
Hi, hier ein kleines Feedback,
Sub Loeschen() 'Vorbereitung, dass in dem Bereich B10:B100 leere Zellen gelöscht werden.
Range("B10:B100").Select
Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp 'Leere Zellen werden gelöscht und nach oben geschoben.
End Sub
Sub Kopieren()
Dim var As Long
Dim i As Long
var = Range("A1").Value 'In dieser Zelle (A1) steht ein Wert. So oft soll kopiert werden.
For i = 1 To var
Range("A2").Copy 'Dieser Wert soll mit der Formatierung kopiert werden.
Cells((i + 9), 2).Select 'Ab Zelle B10 werden die Werte kopiert.
ActiveSheet.Paste
Next i
Application.CutCopyMode = False
End Sub
Sub Zusammenfassung() 'Diese Prozedur löst in diesem Fall beide Anwendungen aus. Also jederzeit erweiterbar.
Loeschen
Kopieren
End Sub
Vielleicht sucht der eine oder andere danach. Ich jedenfalls habe dafür mehrere Stunden benötigt. Egal, es hat geklappt.
Einen schönen Sonntag wünsche ich.
LBJ
Sub Loeschen() 'Vorbereitung, dass in dem Bereich B10:B100 leere Zellen gelöscht werden.
Range("B10:B100").Select
Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp 'Leere Zellen werden gelöscht und nach oben geschoben.
End Sub
Sub Kopieren()
Dim var As Long
Dim i As Long
var = Range("A1").Value 'In dieser Zelle (A1) steht ein Wert. So oft soll kopiert werden.
For i = 1 To var
Range("A2").Copy 'Dieser Wert soll mit der Formatierung kopiert werden.
Cells((i + 9), 2).Select 'Ab Zelle B10 werden die Werte kopiert.
ActiveSheet.Paste
Next i
Application.CutCopyMode = False
End Sub
Sub Zusammenfassung() 'Diese Prozedur löst in diesem Fall beide Anwendungen aus. Also jederzeit erweiterbar.
Loeschen
Kopieren
End Sub
Vielleicht sucht der eine oder andere danach. Ich jedenfalls habe dafür mehrere Stunden benötigt. Egal, es hat geklappt.
Einen schönen Sonntag wünsche ich.
LBJ