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 VBScript in Excel schreiben, was mach ich falsch?

Mitglied: otti1977

otti1977 (Level 1) - Jetzt verbinden

03.08.2011 um 16:24 Uhr, 7214 Aufrufe, 4 Kommentare

Hi zusammen,

eigentlich ist es einfach, ich möchte ein Excel-File erstellen und dann mit Werten füllen.

Das funktioniert eigentlich ganz gut, bis ich in eine Zelle eine Formel (SVerweis) einfügen will.

hier mal ein Auszug aus dem Quelltext:

dim i,j,objXL,linecount,mystring

Set objXL = WScript.CreateObject("Excel.Application")
objXL.Visible = True
objXL.WorkBooks.Add
objXL.Cells(1, 1).Value = "PC-Name"
objXL.Cells(1, 2).Value = "App-Path"
objXL.Cells(1, 3).Value = "User"
objXL.Cells(1, 4).Value = "TelNr"
objXl.Cells(1, 5).Value = "Bemerkung"
objXL.Rows("1:1").Select
objXL.Selection.Font.Bold = True
linecount = 2
'warnschwellwert = 1
'For j=0 to ubound(myarr)

'mystring = =SVERWEIS($A2;'H:\My Documents\Dokumente\Excel\INVENTAR\[chlicket-20110801-mit_Typübersicht.xls]Tabelle1'!$B$2:$H$306;6)
mystring = "=SVERWEIS($A2;" & chr(34) & "H:\My Documents\Dokumente\Excel\INVENTAR\[chlicket-20110801-mit_Typübersicht.xls]:Tabelle1" & chr(34) & "!$B$2:$H$306;6)"
msgbox mystring 'das geht ja noch
objXL.Cells(linecount, 3).Formula = mystring

In der letzten genannten Zeile flippt er dann aus und erzählt mir was von "unbekannter Laufzeitfehler", Code 800A03EC, "Laufzeitfehler in Microsoft VBScript"

Evtl. ist ja einer von Euch fitter als ich und kann mir nen Hinweis geben, wo es denn hapert¿

Danke und

Gruß aus Oberfranken

otti
Mitglied: steini84
03.08.2011 um 18:57 Uhr
Hallo,

habe dein Script gerade durchgespeilt.

Als erstes musst du FormulaLocal anstatt Formula benutzen, da SVerweis nur in einem deutschen Excel gültig ist.
Als zweites kannst du nicht Chr(34), also Gänsefüsschen, benutzen sondern musst das Hochkomma (') nehmen,
Anschließend funktioniert es bei mir ohne Anwendungsfehler.

01.
mystring = "=SVERWEIS($A2;'H:\My Documents\Dokumente\Excel\INVENTAR\[chlicket-20110801-mit_Typübersicht.xls]Tabelle1'!$B$2:$H$306;6)"
02.
MsgBox mystring
03.
objXL.Cells(linecount, 3).FormulaLocal = mystring
MfG steini84
Bitte warten ..
Mitglied: otti1977
03.08.2011 um 19:43 Uhr
Hi Steini,

FormulaLocal kannte ich nocht nicht, kennst Du evtl n gutes Handbuch (online), dann kann ich mir dumme Fragen in Zukunft sparen. Hab mir den Quelltext aus dem Netz zusammengeklaubt, bis ich was hatte was (halbwegs) passt

Danke Dir vielmals und

Gruß aus Oberfranken

otti
Bitte warten ..
Mitglied: steini84
04.08.2011 um 12:35 Uhr
Hi,

einige Sachen habe ich mir bei Herber.de angelesen.

Ansonsten google ich nach einem spez. Problem, wenn ich nicht weiter komme.

MfG Steini84
Bitte warten ..
Mitglied: otti1977
04.08.2011 um 13:24 Uhr
Hi Steini,

danke für den Tip. Werd ich mir mal bookmarken.

mfg

otti
Bitte warten ..
Ähnliche Inhalte
PHP
KW berechnen, was mach ich falsch?
gelöst Frage von icegetPHP2 Kommentare

Hallo Community, ich arbeite an einem kleinen Kalender, und habe folgendes Problem: Da ich auch eine Wochenansicht in meinem ...

Microsoft Office
Excel formatiert falsch
Frage von kellbiddenMicrosoft Office1 Kommentar

Guten Morgen Ich habe eine Excel-Tabelle aus unserem System gezogen. Wenn ich Excel öffne, erwarte ich "Zahlenfelder" (z.b. 10.8). ...

VB for Applications

Excel VBA sheets.count zählt falsch?

gelöst Frage von YotYotVB for Applications29 Kommentare

Moin! Ich habe eine Tabelle, die im Ausgangszustand derzeit 9 Sheets hat. Wenn ich nun wsVorlage.Copy After:=ThisWorkbook.Sheets(Sheets.Count) Worksheets(Sheets.Count).Name = ...

Microsoft Office

Farben werden im Excel falsch gedruckt

Frage von Dr.CornwallisMicrosoft Office6 Kommentare

Hallo Admins, kennt jemand eine Lösung für folgendes Problem: Ich möchte eine Datei die mit Excel 2003 erstellt wurde ...

Neue Wissensbeiträge
Windows Server

Zähe Update-Installation auf Windows Server 2016

Information von kgborn vor 1 TagWindows Server4 Kommentare

Mir sind in der Vergangenheit immer wieder Beschwerden von Admins unter die Augen gekommen, die sich über die doch ...

Humor (lol)
Turnschuhe per Firmware lahmlegen
Information von Henere vor 1 TagHumor (lol)6 Kommentare

Und was kommt demnächst ? Bekomme ich kein Klopapier mehr, weil der Spender einem DDOS unterliegt ? :-) Ich ...

Sicherheit

Sicherheitsrisiko in WinRAR und Co. durch Schwachstelle in UNACEV2.DLL

Information von kgborn vor 1 TagSicherheit

In der seit 2005 nicht mehr aktualisierten Bibliothek UNACEV2.DLL gibt es eine Path-Traversal-Schwachstelle. Diese ermöglicht es, bei ACE-Archiven Dateien ...

Internet

CDU Propaganda: Urheberschutz im Internet - Ende des digitalen Wild-West

Information von Frank vor 2 TagenInternet6 Kommentare

Hallo Administratoren, aus einem Kommentar heraus habe ich folgenden Beiträge von Herr Sven Schulze und Axel Voss (beide CDU ...

Heiß diskutierte Inhalte
Hardware
Frage an Kenner von 5,25 Zoll Laufwerken
Frage von DerWoWussteHardware54 Kommentare

Moin Kollegen. Hier wird gerade im Archiv gewühlt und 5,25 Zoll Disketten ("2S/HD", 96TPI) sollen eingelesen werden. Ich habe ...

Windows Tools
Dateiname Automatisch auf PDF Klartext oder als Barcode abdrucken
Frage von spongebob24Windows Tools29 Kommentare

Hallo Zusammen, habe eine tolle Anforderung bekommen. Ich sollte auf mehrere PDF Dateien Automatisch einen Stempel anbringen lassen. Toll ...

Internet
SDSL oder ADSL - Preis-Leistungs-Verhältnis
Frage von ZeppelinInternet22 Kommentare

Wehrte Community, der Unterschied dieser beiden Techniken ist recht einfach erklärt. Das S, steht für Synchron (Gleich) und das ...

Microsoft Office
MicroSoft und seine Lizenzen
Frage von ZeppelinMicrosoft Office19 Kommentare

Wehrte Community, ich wende mich an die Community weil MicroSoft dazu keine Stellung nehmen möchte. Ich öffne mein Web-Browser ...