Ich versuche schon die ganze Zeit vergeblich ein Makro zu basteln, aber irgendwie ist der Wurm drin. Es soll Zeile2 kopiert und in alle beschriebenen Zeilen nach unten + 5 eingefügt(nur das Format) werden. Mein Problem ist die Variable "AnzahlAA" richtig zu definieren..
Sub Makro2()
Dim AnzahlAA As Double
AnzahlAA =
Range("A2").Copy
Range("A2:A" & AnzahlAA).PasteSpecial Paste:=xlPasteFormats
Range("B2").Copy
Range("B2:B" & AnzahlAA).PasteSpecial Paste:=xlPasteFormats
End Sub
AnzahlAA = Anzahl beschriebene Zeilen in A (Text und/oder Zahlen) + Puffer von 5Meine Idee war erst diese:
AnzahlAA = Application.Count(Range("A:A")) + 5
Allerdings bezieht sich Count nur auf Zahlen(?) und nicht auf Text
Jemand eine Idee?
Liebe Grüße,
Manu