Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Abfrage mit VBA funktioniert nach hinzufügen von Spalten nicht

Frage Entwicklung VB for Applications

Mitglied: Acrysis

Acrysis (Level 1) - Jetzt verbinden

09.03.2012, aktualisiert 18.10.2012, 1978 Aufrufe, 8 Kommentare

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? :'(
Mitglied: 83928
09.03.2012 um 10:25 Uhr
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
Bitte warten ..
Mitglied: Acrysis
09.03.2012, aktualisiert 18.10.2012
mhmh ich habe grade meinen alten thread gefunden......


http://www.administrator.de/forum/mehrere-werte-aus-gro%c3%9fer-liste-a ...

ich schließe den mal besser
Bitte warten ..
Mitglied: 83928
09.03.2012 um 10:44 Uhr
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')
Bitte warten ..
Mitglied: Acrysis
09.03.2012 um 10:52 Uhr
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.
Bitte warten ..
Mitglied: 83928
09.03.2012 um 11:02 Uhr
>sobald KEIN X in Spalte J

Wenn nach dem X nun in Spalte J gesucht werden soll musst Du die Zeile

01.
Spalte2 = "E"
ändern in

01.
Spalte2 = "J"
Bitte warten ..
Mitglied: Acrysis
09.03.2012 um 11:07 Uhr
Omg wie peinlich......sorry und besten Dank......fail des Jahrhunderts -.-
Bitte warten ..
Mitglied: Acrysis
09.03.2012 um 11:13 Uhr
Ach....kann man auch das Boxfenster von sich aus ein bisschen größer machen? sodass es z.B. mit 20 Pixeln am rand generiert wird ?
Bitte warten ..
Mitglied: 83928
09.03.2012 um 11:18 Uhr
fail des Jahrhunderts -.-
Nicht wirklich, aber schön das Du es gemerkt hast. Hat mich schon verwirrt ;)
Ach....kann man auch das Boxfenster von sich aus ein bisschen größer machen? sodass es z.B. mit 20 Pixeln am rand generiert wird ?
Nein, Du kannst Dir aber eine eigene Form erstellen, die den Text anzeigt.
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Fusszeile mit PageSetup mit VBA in Excel Makro funktioniert nicht? (5)

Frage von HerrHart zum Thema VB for Applications ...

VB for Applications
SNMP Abfrage in EXCEL über VBA (7)

Frage von SebastianL zum Thema VB for Applications ...

Datenbanken
gelöst SQL-Abfrage mit "kleiner gleich" funktioniert nicht (2)

Frage von derSESO zum Thema Datenbanken ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Windows Systemdateien
gelöst NTFS und die Defragmentierung (29)

Frage von WinLiCLI zum Thema Windows Systemdateien ...

Server-Hardware
Treiber für Server gesucht (15)

Frage von MeisterFuchs zum Thema Server-Hardware ...