VBA - formatierte zellen fortlaufend kopieren
09.11.2016 14:09:06
Klaus
ich habe folgendes Problem: Ich bräuchte einen Code der mir die vorherige Zellen kopiert und jeweils fortlaufend beim klicken des Buttons in die nächste Spalte einfügt und dabei die erste Spalte ausblendet.
Mein bisheriger Code:
Sub Start()
Dim rng As Range
Set rng = Cells(5, Columns.Count).End(xlToLeft)
If rng.Column = 1 And rng.Value = "" Then
rng.Value = Date
rng.NumberFormat = "mmm/ yy"
Else
Range("AE6:AE688").Select
Selection.AutoFill Destination:=Range("AE6:AF688"), Type:=xlFillDefault
Range("AE6:AF688").Select
Columns("J:J").Select
Selection.EntireColumn.Hidden = True
rng.Offset(, 1).Value = DateSerial(Year(rng), Month(rng) + 1, 1)
rng.Offset(, 1).NumberFormat = "mmm/ yy"
End If
End Sub
Bei diesem Code funktioniert auch alles hervorragend, bloß dass wenn ich wieder auf den Button drücke, die Spalte nicht mehr fortlaufend eingefügt wird und keine Spalte ausgeblendet.
Danke im voraus
Anzeige