Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: LBJ am April 13, 2019, 11:39:21 Vormittag
-
Hallo,
von VBA habe ich leider so gut wie keine Ahnung. Darum hier meine Frage.
In den Zellen A1 und A2 sind Werte. Ich möchte die Zelle A2 in dem Bereich B10:B100 in der letzten freien Zelle kopieren. Die Anzahl der Kopien steht in A1. Wichtig dabei ist, dass die Formatierung von A2 beibehalten wird. Z. B. steht in A1 eine fünf, dann soll die Zelle A2 fünfmal mit der Formatierung in die letzte freie Zelle von Spalte B (nur in dem Bereich B10:B100) kopiert werden.
Es wäre nett, wenn mir jemand helfen könnte.
Danke
LBJ
-
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