Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1344to1348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Fehlermeldung "Objekt erforderlich"

VBA Fehlermeldung "Objekt erforderlich"
03.02.2014 14:18:12
Mariandl
Hallo :)
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
Danke schonmal im Voraus!
Grüßle

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ein s zuviel
03.02.2014 14:28:21
Rudi
Hallo
KostSt = ActiveSheets.Cells(i, 2).Value
es muss ActiveSheet heißen.
Gruß
Rudi

AW: ein s zuviel
03.02.2014 14:31:27
Mariandl
Hallo Rudi!
Danke für die schnelle Hilfe, manchmal sitzt man auf der Leitung ;)
Gruß
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige