Zeilen markieren in anderem Arbeitsblatt
15.09.2006 10:08:23
Tobias
Habe folgendes Makro geschrieben, dass in einem weiteren Blatt die Zeile 4 um eine Anzahl an Zeilen erweitern soll. An was kann es liegen wenn das Makro jedes Mal bei Rows("4:4").Select mit Fehler 1004 endet?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Wasserkreise As Integer
Dim AnzahlW As Integer
AnzahlW = Application.WorksheetFunction.Max(Range(Sheets("Pfahlplan").Cells(13, 14), Sheets("Pfahlplan").Cells(65536, 14)))
Sheets("Wasserkreise").[A1] = AnzahlW
'Fügt die Anzahl an Reihen in den Wasserkreisplan ein, die der Anzahl der Wasserkreise entspricht
Sheets("Wasserkreise").Select
Rows("4:4").Select --> FEHLER!!!
For x = 1 To AnzahlW - 1
Selection.Insert Shift:=xlDown
Next x
Range(Cells(5, 2), Cells(5, 52)).Select
Selection.Copy
Range(Cells(5, 2), Cells((5 + Anzahl - 1), 52)).Select
ActiveSheet.Paste
Range(Cells(4, 2), Cells(5, 2)).Select
Selection.AutoFill Destination:=Range(Cells(13, 2), Cells((13 + Anzahl), 2)), Type:=xlFillDefault
Range(Cells(4, 2), Cells((4 + Anzahl), 2)).Select
End Sub