Herzlichen Gruß ins Forum
Teil des Makros…..
Sub liste()
Dim monat
Application.ScreenUpdating = False
Sheets("Muster").Select
Range("G1").Select 'Actuelles Monat
monat = ActiveCell
==================================================
Hier beginnt meine…… Frage,Bitte
Range("D5,D7,D9,D12,D15,D17,D19,D21").Select
diese Range Anweisung möchte ich (wenn möglich) gern Flexibel - Variabel gestalten
da die Zeilenanzahl verschieden ist.
z.B….A1-D30 oder A5-D120 also bei jeder Liste anders , nur die Spalten A-D sind immer
gleich.
Danke…der kleine “michael“ aus der Steiermark
======================================================
If [F3] = "Falsches Monat" Then
MsgBox "FALSCHES Monat ,Vorgang wird Abgebrochen !"
Range("G1").Select
Exit Sub
End If