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, 4529 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
Backup

2016 - Restore mit WBAdmin - iSCSI Device als Sicherungsziel

Erfahrungsbericht von Henere vor 2 TagenBackup1 Kommentar

Servus zusammen, was mich eben einige graue Haare gekostet hat Server 2016. Ich habe meinem Server eine weitere M2 ...

Humor (lol)
(Part num your Hacked phone. +XX XXXXXX5200)
Erfahrungsbericht von Henere vor 4 TagenHumor (lol)10 Kommentare

Mein Handy hat aber ne ganz andere Endnummer. Muss ich mir jetzt Sorgen machen ? :-) Vielleicht betrifft es ...

Exchange Server

Letztes Update für Exchange 2016 CU9 war in gewisser Weise destruktiv

Erfahrungsbericht von DerWoWusste vor 4 TagenExchange Server9 Kommentare

Kurzer Erfahrungsbericht zu Exchange2016-KB4340731-x64 Der Exchangeserver hat wie gewöhnlich versucht, es in der Nacht automatisch zu installieren - abgesehen ...

Erkennung und -Abwehr

Neue Sicherheitslücke Foreshadow (L1TF) gefährdet fast alle Intel-Prozessoren

Information von Frank vor 5 TagenErkennung und -Abwehr3 Kommentare

Eine neue Sicherheitslücke, genannt Foreshadow (alias L1TF) wurde auf der Usenix Security 18 von einem Team internationaler Experten veröffentlicht. ...

Heiß diskutierte Inhalte
E-Mail
Deutsche e-Mail Adresse auf iPhone in Katar. Nur Probleme
gelöst Frage von vanTastE-Mail32 Kommentare

Moin, ich habe hier in Deutschland auf einem Exchange 2013 eine e-Mail Adresse (name@domain.de) für einen Kollegen in Katar ...

Windows Server
Domäne beitreten nicht möglich, unter VMWare windows Server 2016 Core
Frage von AmanuelWindows Server21 Kommentare

Ich habe auf meinem Mac unter VMWare Windows Server 2016 Core und Windows Server 2016 Desktopversion installiert. Beide Systeme ...

Windows Server
Server verliert Dateien und Ordner
gelöst Frage von routeserverWindows Server18 Kommentare

Hallo Freunde, ich habe hier ein Problem, das mich an meine Grenzen treibt und ich würde gerne wissen, ob ...

Windows Tools
User Self Service und Client Management
Frage von OrkansonWindows Tools14 Kommentare

Hallo zusammen, ich hab ein paar verschiedene Fragen: 1. Was benutzt ihr um Software im Unternehmen zu verteilen? 2. ...