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

gelöst Excel Datei durchsuchen

Mitglied: exzivi

exzivi (Level 1) - Jetzt verbinden

10.03.2008, aktualisiert 15:08 Uhr, 4532 Aufrufe, 5 Kommentare

Guten Morgen zusammen,

ich hab ein kleines Proble mit Excel und VBS. Ich versuche eine Excel Datei nach einem Benutzernamen zu durchsuchen, dann soll er mir, wenn er diesen gefunden hat, in der gleichen Zeile, in der zweiten Spalten den passenden Eintrag in eine Variable schreiben. Leider klappts nicht, er wirft mir immer nur den Wert in der falschen Zeile aus. Eine Idee? Danke Euch schon mal...Hier ist mein Code:

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(filename)
Username = "ExZivi"
intRow = 2
objExcel.Cells(intRow,1).Value = "&username&"
Wscript.Echo "Zertifikat: " & objExcel.Cells(intRow, 2).Value
intRow = intRow + 1
objWorkbook.Close False
objExcel.Quit
Mitglied: bastla
10.03.2008 um 11:48 Uhr
Hallo exzivi und willkommen im Forum!

Das müsste eher so aussehen:
01.
Set objExcel = CreateObject("Excel.Application") 
02.
Set objWorkbook = objExcel.Workbooks.Open(filename) 
03.
Username = "ExZivi" 
04.
intRow = 2 
05.
For i = intRow To 65536 
06.
    If LCase(objExcel.Cells(i,1).Value) = LCase(Username) Then 
07.
        WScript.Echo "Zertifikat: " & objExcel.Cells(i, 2).Value 
08.
        Exit For 
09.
    End If 
10.
Next 
11.
objWorkbook.Close False 
12.
objExcel.Quit
Durch die "For"-Schleife (oder ein alternatives Konstrukt mit "Loop") erreichst Du, dass nur bis maximal Zeile 65536 gesucht wird.

"LCase()" sorgt dafür, dass die Groß-/Kleinschreibung beim Vergleich der Benutzernamen keine Rolle spielt.

"Exit For" bewirkt schließlich, dass die Schleife sofort verlassen wird, nachdem der Benutzername gefunden werden konnte.

Grüße
bastla

[Edit] Schleifenvariable i an den nötigen Stellen eingesetzt. [/Edit]
Bitte warten ..
Mitglied: exzivi
10.03.2008 um 12:06 Uhr
Hallo Bastla!
Super heißen Dank für Deine Antwort
und danke für die Willkommens-Grüße.

Nur leider funktioniert es nicht ganz,
er startet zwar Excel, zu sehen im Taskmanager,
es wird nur kein Wert ausgegeben, obwohl der
Username in der Excel Tabelle vorhanden ist.
Es tut sich sozusagen gar nichts... ich verzweifel
noch... ahh... hilfe

Funktioniert es bei Dir?

Viele Grüße der "Neue"
Bitte warten ..
Mitglied: misterdemeanor
10.03.2008 um 12:56 Uhr
Hallo ExZivi,

auch ein Willkommen von mir

Was bastla geschrieben hat:

>WScript.Echo "Zertifikat: " & objExcel.Cells(intRow, 2).Value

Also innerhalb des If´s in der For-Schleife. Das intRow müsste dann durch i ersetzt werden.
Was, wie ich gerade sehe, natürlich auch in der If Bedingung ausgetauscht werden müsste

BG, Felix -misterdemeanor-
Bitte warten ..
Mitglied: bastla
10.03.2008 um 13:07 Uhr
@exzivi
Sorry - trotz einer Menge Text war's leider gerade so zwischen Tür und Angel (noch nicht einmal "ungetestet" habe ich dazugeschrieben, fällt mir gerade auf *kopfschüttel*) - ich korrigiere das dann mal besser da oben ...

@misterdemeanor
Danke für's Aufräumen.

Grüße
bastla
Bitte warten ..
Mitglied: exzivi
10.03.2008 um 15:08 Uhr
Mensch Jungs ihr seit einfach spitzen klasse. Ihr habt mir den Tag
gerettet! :o) Das war das letzte Puzzelteil für mein VBS Script! Vielen
Dank noch mal für Eure geniale Hilfe.

Wünsche Euch eine fantastische Woche.

Viele Grüße,
der ExZivi
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Excel Dateien durchsuchen und Teile extrahieren

gelöst Frage von BeranavanMicrosoft Office14 Kommentare

Hallo, ich habe eine große Menge an Excel Dateien, die gleichermaßen aufgebaut sind: In jeder Datei sind in Spalte ...

Microsoft Office

Excel Dateien durchsuchen und Werte einzeln in neue Excel Datei auslesen

Frage von krischaniiMicrosoft Office1 Kommentar

Hallo und Danke für Eure stets guten Antworten und Hilfen! Folgendes Problem habe ich: Win 8.1 - Office2013 Ich ...

Microsoft Office

Excel Dateien durchsuchen und mehrere Werte in neue Excel Datei auslesen

Frage von CollatusMicrosoft Office7 Kommentare

Hallo zusammen, im Forum bin ich schon auf einen guten Ansatz gestoßen der mir schon sehr weiter Hilft aber ...

Microsoft Office

Viele Excel-Dateien nach einem Wort durchsuchen und Ergebnis in eine neue Excel - Datei

Frage von BeranavanMicrosoft Office4 Kommentare

Guten Tag, ich hab eine Vielzahl an Excel-Dateien, die in der ersten Spalte verschiedene Wörter enthalten. Nun möchte ich ...

Neue Wissensbeiträge
Ausbildung

Linux-Ausstieg in Niedersachsen - Windows statt Bugfix

Information von StefanKittel vor 1 TagAusbildung9 Kommentare

Sind ja nur Steuergelder

Speicherkarten

Neuer Speicherkartentyp - zunächst nur für Huawei-Smartphones (künftig auch für Notebooks u. Tablets?)

Tipp von VGem-e vor 3 TagenSpeicherkarten3 Kommentare

Servus, als ob das "Chaos" i.S. Speicherkarten noch nicht groß genug wäre?! Evtl. kommt dieser neue Kartentyp bald auch ...

Sicherheit

Diverse D-Link-Router durch drei Schwachstellen kompromittierbar

Information von kgborn vor 3 TagenSicherheit

Hat jemand D-Link-Router in Verwendung? Einige Modelle sind sicherheitstechnisch offen wie ein Scheunentor. Äußerst unschöne Sache, aber nichts neues ...

Hardware

100.000 Mikrotik-Router ungefragt von Hacker abgesichert

Information von 7Gizmo7 vor 4 TagenHardware3 Kommentare

Hallo zusammen, da hier ja öfters mal von Mikrotik gesprochen wird. Trotz Updates klafft eine Sicherheitslücke in Hundertausenden Mikrotik-Routern. ...

Heiß diskutierte Inhalte
Vmware
Offene LDAP-Server in AS
gelöst Frage von obi-wan-kenobiVmware19 Kommentare

Hallo alle Miteinander, ich habe ein Problem, unsere VM-Ware Appliance (Version. 6.5.0.10000) ist scheinbar angreifbar. Wir haben eben die ...

Windows Server
Zertifikat RemoteDesktop hinterlegen
gelöst Frage von Green14Windows Server12 Kommentare

Hallo zusammen. ich habe mehrere Server (WinSrv 2016). Die Server sind in keiner Domäne und keine Terminalserver. Ich verbinde ...

Windows Server
DNS - Bedingte Weiterleitung
gelöst Frage von m8ichaelWindows Server11 Kommentare

Guten Tag zusammen, ich stehe gerade bzgl. einer bedingten DNS-Weiterleitung etwas auf dem Schlauch: Ich möchte, dass für bestimmte ...

Suche Projektpartner
Debian 9.5 32 Bit und PHP 7 Fehlerbeseitigungen
Frage von zeroblue2005Suche Projektpartner11 Kommentare

Hallo Zusammen, ich habe eine VM auf Basis von ESXI am laufen. Dieser wurde unter Debian 7 installiert mt ...