VBA einen Bereich markieren
22.11.2022 14:11:49
Christoph
ich bin gerade dabei ein Makro zu erstellen und komme nicht weiter.
Ich möchte von einem Blatt die benutzten Zeilen zählen und in einem anderen Blatt von einer bestimmten Zeile aus alles dahinter bzw dadrunter markieren und um die Anzahl der Zeilen aus dem ersten Blatt nach unten verschieben.
Sub Schächte()
With Worksheets("Schächte").Activate
a = ActiveSheet.UsedRange.Rows.Count
a = a - 5
End With
Worksheets("Massenermittlung").Select
Dim rng As Range
Set rng = ActiveSheet.Range("A1:A1000").Find("1") 'den Wert 1 finden um auf die richtige Zeile zu kommen
rng.Select
ActiveCell.Offset(1, 0).Select 'eine Zeile nach unten springen
End Sub
Vielen Dank