Zählen + Puffer
Manuela
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
Meine 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
Anzeige