Excel:Anwendungs-oder Object-Fehler Geschlossen

Question

Guten Tag, 


ich habe einen Code um Tabelle "A" zu kopieren, sie mit einem Wert aus Tabelle "B" umbenennen und dann auf diese neue Tabelle die Spalten , die Werte in der zweite Zeile  nicht gleich Qx oder "ok" aufweisen, löschen ...
Ich bekomme aber eine Fehlermeldung : "Anwendung- oder objektdefinierter Fehler"
Ich weiß nicht was ich machen soll ! Danke im Voraus für die Hilfe!
Grüße 
Sub Copie()
Dim i, z, c
z = 7
Q = "Q" & i
For i = 1 To z
Q = "Q" & i
Sheets("A").Activate
Sheets("A").Copy after:=Sheets("B")
ActiveSheet.Name = Worksheets("B").Range("A" & i).Value
For c = 480 To 159 Step -1
If Sheets(Q).Range(2, c).Value <> Q And "ok" Then
Sheets(Q).Range(2, c).EntireColumn.Delete
End If
Next c
Next i
End Sub

papasito · Answer

hallo,

Es ist nicht leicht die richtige Antwort zu geben ohne die Version von Excel zu kennen und ohne ein Beispiel zu sehen !

Ich nehme an du benutzt eine Version 2007 oder 2010 , sonst es könnte schon daran liegen, dass du Fehler bekommst.

Der Inhalt von Tabelle B in A1:A7 könnte auch eine Fehlermeldung verursachen.

Und dein folgender Code ist aber auf jeden Fall nicht richtig :

If Sheets(Q).Range(2, c).Value <> Q And "ok" Then
Sheets(Q).Range(2, c).EntireColumn.Delete

Richtiger wäre :

If Sheets(Q).Cells(2, c).Value <> Q And Sheets(Q).Cells(2, c).Value <>"ok" Then
Sheets(Q).Cells(2, c).EntireColumn.Delete

Excel:Anwendungs-oder Object-Fehler

1 Antwort

Ähnliche Threads