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, 3769 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 ..
Neuester Wissensbeitrag
Microsoft Office

MS Office Excel - Formel wird angezeigt, aber nicht berechneter Wert!

Tipp von holli.zimmi zum Thema Microsoft Office ...

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

Frage von Flodsche zum Thema Batch & Shell ...

Microsoft Office
Excel Nachfrage: Datum aus Spalte ausgeben (2)

Frage von PronMaster zum Thema Microsoft Office ...

Microsoft Office
MS Office Excel - Formel wird angezeigt, aber nicht berechneter Wert!

Tipp von holli.zimmi zum Thema Microsoft Office ...

VB for Applications
gelöst Ausgewählten Bereich eines Excel Dokumentes per email verschicken (7)

Frage von Edd1ng zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Hyper-V
gelöst Reiner Hyper- V Server oder lieber Rolle (15)

Frage von Winuser zum Thema Hyper-V ...

Windows Server
gelöst Rechte als Admin vergeben - Zugriff verweigert (14)

Frage von Ghost108 zum Thema Windows Server ...

Router & Routing
gelöst IP Kamera für drei unabhängige Netzwerke (12)

Frage von ProfessorZ zum Thema Router & Routing ...