VBA Fehlermeldung "Objekt erforderlich"
03.02.2014 14:18:12
Mariandl
Ich hab zwei Tabellenblätter (das sind die Sheets 3 und 4) und wenn im Sheet 3 in Spalte 16 was drinsteht, möchte ich, dass gewisse Zellen in der betreffenden Zeile (i) gelöscht werden und bestimmte Inhalte in Sheet 4 übertragen werden.
Das Makro wird per Klick auf einen Button ausgelöst. Das Löschen der Zellen funktioniert schon gut, aber wenn ich die von mir konzipierten Zeilen zum Übertragen noch dazu nehme zeigts mir den Fehler "Objekt erforderlich". Woran kanns liegen?
Hier mein Code:
Sub ZeileLoeschen()
Dim i As Integer
Dim KostSt As Long
Dim PersNr As Long
Dim Name As String
Dim Bereich As String
Dim Inhalt As String
Dim Beschr As String
Dim Veranst As String
Dim Dauer As Variant
Dim Kosten As Variant
Dim Datum As Date
For i = 15 To 230 Step 1
KostSt = ActiveSheets.Cells(i, 2).Value
PersNr = ActiveSheets.Cells(i, 3).Value
Name = ActiveSheets.Cells(i, 4).Value
Bereich = ActiveSheets.Cells(i, 5).Value
Inhalt = ActiveSheets.Cells(i, 6).Value
Beschr = ActiveSheets.Cells(i, 8).Value
Veranst = ActiveSheets.Cells(i, 9).Value
Dauer = ActiveSheets.Cells(i, 12).Value
Kosten = ActiveSheets.Cells(i, 13).Value
Datum = ActiveSheets.Cells(i, 15).Value
If Sheets(3).Cells(i, 16).Value "" Then
Sheets(4).Cells(i, 2).Value = KostSt
Sheets(4).Cells(i, 3).Value = PersNr
Sheets(4).Cells(i, 4).Value = Name
Sheets(4).Cells(i, 5).Value = Bereich
Sheets(4).Cells(i, 6).Value = Inhalt
Sheets(4).Cells(i, 7).Value = Beschr
Sheets(4).Cells(i, 8).Value = Veranst
Sheets(4).Cells(i, 9).Value = Dauer
Sheets(4).Cells(i, 10).Value = Kosten
Sheets(4).Cells(i, 11).Value = Datum
Sheets(3).Cells(i, 14).ClearContents
Sheets(3).Cells(i, 13).ClearContents
Sheets(3).Cells(i, 12).ClearContents
Sheets(3).Cells(i, 11).ClearContents
Sheets(3).Cells(i, 10).ClearContents
Sheets(3).Cells(i, 9).ClearContents
Sheets(3).Cells(i, 8).ClearContents
Sheets(3).Cells(i, 6).ClearContents
Sheets(3).Cells(i, 5).ClearContents
Sheets(3).Cells(i, 4).ClearContents
Sheets(3).Cells(i, 3).ClearContents
Sheets(3).Cells(i, 2).ClearContents
Sheets(3).Cells(i, 15).ClearContents
Sheets(3).Cells(i, 16).ClearContents
End If
Next i
End Sub
Grüßle
Anzeige