VBA Variable nicht definiert

Sub W_Löschen() Dim i As Integer, Erste As Boolean Erste = True With Worksheets("Tabelle5") For i = 1 To 22 If InStr(1, Cells(1, i), "Währung") > 0 Then If Not Erste Then Range(Columns(i), Columns(i)).Select Columns("A:F").Delete Shift:=x1ToLeft i = i - 1 End If Erste = False End If Next i End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Waldow,
soweit ich Dein Vorhaben nachvollziehen kann, würde ich es so schreiben:


Sub W_Loeschen()
Dim i As Integer
With Worksheets("Tabelle5")
For i = 2 To 22
If InStr(1, .Cells(1, i), "Währung") > 0 Then
.Range(.Columns(i), .Columns(i)).Select
.Columns("A:F").Delete Shift:=x1ToLeft
i = i - 1
End If
Next i
End With
End Sub

Das Geraffel mit der Boolean Variable diente dem Auslassen der ersten Spalte richtig? Das kannst Du Dir sparen, wenn Du die Schleife nicht von 1 sondern von 2 bis 22 laufen lässt.
Einen With Block musst Du so abschließen, dass er sich mit keinem anderen Block überschneidet. Genau wie bei Schleifen. Deshalb verwendet man die Einrückungen. So kannst Du direkt sehen, welcher Block von wo bis wo geht. Öffnend und schließend müssen in den Einrückungen immer direkt untereinander stehen, also gleich weit eingerückt sein.
Wenn Du mit With arbeitest, musst Du auch die betreffenden Zellen usw. mit einem Punkt davor schreiben, damit die With Anweisung weiß, wo sie den Codefetzen einsetzen soll. Ohne die Punkte arbeitet der Code sonst auf der Tabelle, aus der Du ihn aufgerufen hast.
Ich hoffe das hilft Dir weiter.
Viele Grüße,
Zwenn

Hallo Waldow,
Deine Frage lässt sich so nicht beantworten. Der Grund ist, dass niemand weiß, was "Dein Button" denn eigentlich machen soll und darüber hinaus, wie Deine Daten eigentlich aussehen.
Ich habe ja einfach überall einen Punkt für die With-Anweisung gesetzt. Vielleicht gibt es aber auch Zeilen, die sich auf die Tabelle beziehen, aus der Du das Makro aufrufst? Vielleicht muss auch etwas anders programmiert werden? Das sind Fragen (und wahrscheinlich nicht erschöpfend) die so niemand beantworten kann.
Es ist also in Deinem Interesse, wenn Du eine Beispielmappe hochlädst, die Deinen gesamten Code inklusive "des Buttons" enthält. Darüber hinaus wäre es extrem hilfreich, wenn Du erklärst, was Du eigentlich erreichen willst. Wie liegen Deine Daten vor und in welche Form willst Du sie bringen?
Viele Grüße,
Zwenn
PS: Bin gerade anderweitig gebunden, aber meine Hinweise sind auch gültig, wenn jemand anders eine Idee zu Deinem Problem bekommen soll.

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Variable nicht definiert

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread