Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Hochkomma mit VBSCRPT aus Excel ausgeben

Frage Microsoft Microsoft Office

Mitglied: viking

viking (Level 1) - Jetzt verbinden

08.08.2010 um 00:44 Uhr, 3788 Aufrufe, 4 Kommentare

Hallo, eine Frage an die Experten.

Ich habe folgenden Code in einem Excel Makro.
Ich möchte aber, dass bei der Ausgabe “Zeile3=" & ActiveCell.Offset(0, 3).Text der Wert der Zelle in Anführungszeichen steht.
Das tut er nicht.
Momentan kommt:

Ausgabe
Wert="Test"
Zeile3=Hallo

Es soll aber sein:
Ausgabe
Wert="Test"
Zeile3="Hallo"

Mein Code lautet:

Option Explicit

Const expPfad = "C:\Temp\G\"
Const expFile = "1.txt"

Sub Create_txt()
Dim Qe As Long, myEdit As Variant
Open expPfad & expFile For Output As #1
Print #1, "Ausgabe" & vbNewLine & "Wert=" & """Test""" & vbNewLine & “Zeile3=" & ActiveCell.Offset(0, 3).Text
Close #1
End Sub

Wie kann ich das erreichen?

Gruß viking
Mitglied: Pjordorf
08.08.2010 um 00:59 Uhr
Hallo Viking,

Zitat von viking:

Wenn du deinen Quelltext richtig Formatierst sieht es deutlich besser und lesbarer aus. Siehe die Formatierungshilfe.

01.
 Option Explicit 
02.
  
03.
 Const expPfad = "C:\Temp\G\" 
04.
 Const expFile = "1.txt" 
05.
  
06.
 Sub Create_txt() 
07.
     Dim Qe As Long, myEdit As Variant 
08.
     Open expPfad & expFile For Output As #1 
09.
     Print #1, "Ausgabe" & vbNewLine & "Wert=" & """Test""" &  vbNewLine &  “Zeile3=" & ActiveCell.Offset(0, 3).Text  
10.
     Close #1        
11.
 End Sub

Wie kann ich das erreichen?
Nun es hängt davon ab was du in der Zelle ActiveCell.Offset(0,3) stehen hast. Steht dort ein Textwert, dann wird dieser ja auch korrekt in deine Textdatei übergeben. Du musst also noch deine gewünschten Hochkommata selber einfügen.

[Edit]
Code geändert
01.
     Print #1, "Ausgabe" & vbNewLine & "Wert=" & """Test""" & vbNewLine & "Zeile3 = " & Chr$(34) & ActiveCell.Offset(0, 3).Text & Chr$(34);
[Edit]

Sollte so gehen.

Peter
Bitte warten ..
Mitglied: viking
08.08.2010 um 01:04 Uhr
Hallo Peter,

dann kommt bei mir das raus
Zeile3=" & ActiveCell.Offset(0, 3).Text & "

Gruß Erich
Bitte warten ..
Mitglied: viking
08.08.2010 um 01:16 Uhr
Hallo Peter,

funktioniert mit dem "& Chr$(34);"

Danke!
Bitte warten ..
Mitglied: bastla
08.08.2010 um 10:27 Uhr
... und ist leichter lesbar als:
Print #1, "Ausgabe" & vbNewLine & "Wert=" & """Test""" & vbNewLine & "Zeile3=""" & ActiveCell.Offset(0, 3).Text & """"
Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Excel Nachfrage: Datum aus Spalte ausgeben (2)

Frage von PronMaster zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel 2010 Makro Ausgabe in bestimmter Tabelle ausgeben (6)

Frage von dressa zum Thema Microsoft Office ...

Batch & Shell
gelöst Mit Batchdatei Informationen auslesen und diese strukturiert in Excel ausgeben (9)

Frage von Flodsche zum Thema Batch & Shell ...

Batch & Shell
gelöst Bash Nur Zahlen ausgeben regex (11)

Frage von Marabunta zum Thema Batch & Shell ...

Neue Wissensbeiträge
Windows Tools

Zeit für Energiesparmodus, Bildschirmabschaltung etc. schnell anpassen

Anleitung von hannsgmaulwurf zum Thema Windows Tools ...

Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(4)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Heiß diskutierte Inhalte
Microsoft Office
Office Druck fehler (18)

Frage von DaistwasimBusch zum Thema Microsoft Office ...

Windows Server
Zertifikat am DC erneuern funktioniert nicht (13)

Frage von takvorian zum Thema Windows Server ...