Abfrage mit VBA funktioniert nach hinzufügen von Spalten nicht

Hi

Moin, also ich habe eine Abfrage in VBa gehabt, dass wenn ich auf einen Button klicke mir Werte angezeigt werden...funtkioniert nicht mehr nachdem ich 3 Spalten hinzugefügt habe.

Funktionierende Abfrage:

Sub findewert()

ZeileVon = 16
SpalteLfd = "A"
Spalte1 = "B"
Spalte2 = "G"
Spalte3 = "O"
Spalte4 = "P"
Spalte5 = "Q"
Spalte6 = "A"
Spalte7 = "D"

Zeile = ZeileVon
Do Until Cells(Zeile, SpalteLfd).Value = ""
If Cells(Zeile, Spalte6).Value <> "" And Cells(Zeile, Spalte2).Value = "" Then Ausgabe = Ausgabe & " " & Cells(Zeile, Spalte6).Value
If Cells(Zeile, Spalte1).Value <> "" And Cells(Zeile, Spalte2).Value = "" Then Ausgabe = Ausgabe & " - " & Cells(Zeile, Spalte1).Value
If Cells(Zeile, Spalte3).Value <> "" And Cells(Zeile, Spalte2).Value = "" Then Ausgabe = Ausgabe & " - " & Cells(Zeile, Spalte3).Value
If Cells(Zeile, Spalte4).Value <> "" And Cells(Zeile, Spalte2).Value = "" Then Ausgabe = Ausgabe & " - " & Cells(Zeile, Spalte4).Value
If Cells(Zeile, Spalte5).Value <> "" And Cells(Zeile, Spalte2).Value = "" Then Ausgabe = Ausgabe & " - " & Cells(Zeile, Spalte5).Value
If Cells(Zeile, Spalte7).Value <> "" And Cells(Zeile, Spalte2).Value = "" Then Ausgabe = Ausgabe & " - " & Cells(Zeile, Spalte7).Value & " Lines" & vbCrLf & vbCrLf

Zeile = Zeile + 1
Loop
MsgBox Mid(Ausgabe, 3), vbInformation + vbOKOnly, "Fahrender Picker"

End Sub

Nicht funktionierende Abfrage:

Sub findewert()

ZeileVon = 16
SpalteLfd = "A"
Spalte1 = "B"
Spalte2 = "E"
Spalte3 = "F"
Spalte4 = "G"
Spalte5 = "H"
Spalte6 = "R"
Spalte7 = "S"
Spalte8 = "T"
Spalte9 = "A"
Spalte10 = "D"

Zeile = ZeileVon
Do Until Cells(Zeile, SpalteLfd).Value = ""
If Cells(Zeile, Spalte1).Value <> "" And Cells(Zeile, Spalte2).Value = "" Then Ausgabe = Ausgabe & " " & Cells(Zeile, Spalte1).Value
If Cells(Zeile, Spalte2).Value <> "" And Cells(Zeile, Spalte2).Value = "" Then Ausgabe = Ausgabe & " - " & Cells(Zeile, Spalte2).Value
If Cells(Zeile, Spalte3).Value <> "" And Cells(Zeile, Spalte2).Value = "" Then Ausgabe = Ausgabe & " - " & Cells(Zeile, Spalte3).Value
If Cells(Zeile, Spalte4).Value <> "" And Cells(Zeile, Spalte2).Value = "" Then Ausgabe = Ausgabe & " - " & Cells(Zeile, Spalte4).Value
If Cells(Zeile, Spalte5).Value <> "" And Cells(Zeile, Spalte2).Value = "" Then Ausgabe = Ausgabe & " - " & Cells(Zeile, Spalte5).Value
If Cells(Zeile, Spalte6).Value <> "" And Cells(Zeile, Spalte2).Value = "" Then Ausgabe = Ausgabe & " - " & Cells(Zeile, Spalte6).Value
If Cells(Zeile, Spalte7).Value <> "" And Cells(Zeile, Spalte2).Value = "" Then Ausgabe = Ausgabe & " - " & Cells(Zeile, Spalte7).Value
If Cells(Zeile, Spalte8).Value <> "" And Cells(Zeile, Spalte2).Value = "" Then Ausgabe = Ausgabe & " - " & Cells(Zeile, Spalte8).Value
If Cells(Zeile, Spalte9).Value <> "" And Cells(Zeile, Spalte2).Value = "" Then Ausgabe = Ausgabe & " - " & Cells(Zeile, Spalte9).Value
If Cells(Zeile, Spalte10).Value <> "" And Cells(Zeile, Spalte2).Value = "" Then Ausgabe = Ausgabe & " - " & Cells(Zeile, Spalte10).Value & " Lines" & vbCrLf & vbCrLf

Zeile = Zeile + 1
Loop
MsgBox Mid(Ausgabe, 3), vbInformation + vbOKOnly, "Fahrender Picker"

End Sub

DIe Reihenfolge der Ausgabe stimmt zwar noch nicht, aber ich muss doch mehr als eine Leere infobox bekommen oder? :'(

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 181695

Url: https://administrator.de/forum/abfrage-mit-vba-funktioniert-nach-hinzufuegen-von-spalten-nicht-181695.html

Ausgedruckt am: 09.05.2025 um 18:05 Uhr

8 Kommentare

Neuester Kommentar

Hi,

Die Infos sind sehr dürftig.
Das es irgendwie um Excel geht, kann man gerade noch erkennen (auch wenn den Thread-Titel eher an Access erinnert).

Ich rate einfach mal. Liegt es vielleicht daran, das Deine merkwürdige Variable "Spalte2" im ersten Beispiel den Wert "G" hat und im zweiten Beispiel den Wert "E"?

Gruß a

mhmh ich habe grade meinen alten thread gefunden......

Mehrere Werte aus großer Liste anzeigen

ich schließe den mal besser

OK,
habe ich mit meiner Vermutung falsch gelegen? Das X muss nach dem Einfügen der Spalten in der Spalte E stehen (bei dem 'nicht funktionierendem Code')

Also so wie oben hat es früher funktioniert nun brauch ich allerdings wenn man auf den Button klickt die Daten aus:

Spalte A-B-C-D-R-S-T sobald KEIN X in Spalte J ist, allerdings Spalte A gefüllt ist.