hi leute, würde gerne mit einem makro die nächste freie zelle einer spalte (z.b. A) markieren, weiß jemand, wie das funktioniert? momentan sieht das makro so aus:
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Stündlich").Select
vor "Selection.PasteSpecial" soll das mit dem automatischen markieren geschehen.
vor diesem makro wird folgendes ausgeführt:
Selection.Copy
Sheets("Tagesmittel berechnen (1-24)").Select
ActiveWindow.SmallScroll Down:=-9
Range("A1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=9
Range("A26:K26").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Alle Tagesmittel").Select
das beste wäre, wenn ich beide makros zu einem zusammenführen könnte. bisher muss ich erst das erste (hier das untere) ausführen, dann die zu anfang angesprochene nächste freie zelle markieren und anschließend das zweite makro ausführen, was natürlich auf dauer einiges an zusätzlicher arbeitszeit bedeutet.
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Stündlich").Select
vor "Selection.PasteSpecial" soll das mit dem automatischen markieren geschehen.
vor diesem makro wird folgendes ausgeführt:
Selection.Copy
Sheets("Tagesmittel berechnen (1-24)").Select
ActiveWindow.SmallScroll Down:=-9
Range("A1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=9
Range("A26:K26").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Alle Tagesmittel").Select
das beste wäre, wenn ich beide makros zu einem zusammenführen könnte. bisher muss ich erst das erste (hier das untere) ausführen, dann die zu anfang angesprochene nächste freie zelle markieren und anschließend das zweite makro ausführen, was natürlich auf dauer einiges an zusätzlicher arbeitszeit bedeutet.
Kommentar