Top-Themen

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, 1997 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
Datenbanken
SQL Abfrage, Spalten mit gleicher ID zusammenfügen (Unterschiedliche Daten hinzufügen)
Frage von Micha81Datenbanken1 Kommentar

Hallo, wie ihr feststellen werdet, habe ich nicht viel Ahnung von SQL und vielleicht ist das was ich möchte ...

Microsoft Office
Excel-VBA: Alle Werte einer Spalte in einer anderen Suchen
gelöst Frage von KevinPMicrosoft Office4 Kommentare

Hallo, ich hänge jetzt schon seit Tagen dran und komm nicht zu Rande. Ich versuche jeden Wert eines Tabellenblattes ...

VB for Applications
SNMP Abfrage in EXCEL über VBA
Frage von SebastianLVB for Applications7 Kommentare

Hallo Zusammen, Erstmal zum Sachverhalt: Ich habe mehrere Drucker (ca. 50) die über SNMP ansprechbar sind. Mein Ziel ist ...

Batch & Shell
Powershell, neue Spalte einer Liste hinzufügen
Frage von DanielBodenseeBatch & Shell3 Kommentare

Hallo zusammen, ich lese eine CSV-Datei ein mit 7 Spalten ein, exportiere von einem Feld der Spalte den UserID ...

Neue Wissensbeiträge
Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 15 StundenViren und Trojaner1 Kommentar

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 19 StundenRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 3 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 4 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Heiß diskutierte Inhalte
Batch & Shell
Trusted Sites für alle User auf dem PC einpflegen
Frage von xXTaKuZaXxBatch & Shell12 Kommentare

Aufgabestellung: Es sollen auf 1 PC (bzw. mehreren PCs) vertrauenswürdige Sites per Powershell eingetragen werden, die für alle User ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Vmware
DOS 6.22 in VMWare mit CD-ROM
gelöst Frage von hesperVmware10 Kommentare

Hallo zusammen! Ich hab ein saublödes Problem. Es ist eine VMWare mit DOS 6.22 zu erstellen auf dem ein ...

Cloud-Dienste
PIM als SaaS Nutzungsgebühr
Frage von vanTastCloud-Dienste8 Kommentare

Moin, wir haben uns ein PIM (Product Information Management) nach unseren Ansprüchen für viel Geld als SaaS-Lösung bauen lassen. ...