Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 1991 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
SNMP Abfrage in EXCEL über VBA (7)

Frage von SebastianL zum Thema VB for Applications ...

Batch & Shell
Powershell, neue Spalte einer Liste hinzufügen (3)

Frage von DanielBodensee zum Thema Batch & Shell ...

Microsoft Office
gelöst Verschieben von Zellinformation in andere Spalte (per VBA) excel 2010 (5)

Frage von thomas1972 zum Thema Microsoft Office ...

Microsoft Office
VBA Excel Formel auf letzte Spalte übertragen (2)

Frage von Kalisser zum Thema Microsoft Office ...

Neue Wissensbeiträge
Humor (lol)

Wohnt jemand in Belgien und kann nicht mehr ruhig ausschlafen?

(4)

Information von LordGurke zum Thema Humor (lol) ...

Sicherheits-Tools

Trendmicro OSCE und das Fall Creators Update Win10 RS3

(3)

Information von Henere zum Thema Sicherheits-Tools ...

Microsoft Office

Text in Zahlen umwandeln

Tipp von logische zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Microsoft Office
ICH BIN AM ENDE MEINES IT-WISSENS ANGELANGT!!!! (38)

Frage von 134537 zum Thema Microsoft Office ...

Windows Server
Gruppenrichtlinie greift nicht zu! (24)

Frage von Syosse zum Thema Windows Server ...

Hosting & Housing
Mailserver Software Empfehlungen (21)

Frage von sunics zum Thema Hosting & Housing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (16)

Frage von liquidbase zum Thema Voice over IP ...