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, 3760 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
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

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

Frage von Flodsche zum Thema Batch & Shell ...

VB for Applications
gelöst Windows Ordnerstruktur, Pfad und Dateiname in Excel ausgeben (2)

Frage von zlep01 zum Thema VB for Applications ...

Microsoft Office
gelöst Excel: Text in Zellbereich prüfen mit Vergleichstext ggf. mit Exact-Funktion (5)

Frage von Michi1 zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (21)

Frage von Xaero1982 zum Thema Microsoft ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Windows Update
Treiberinstallation durch Windows Update läßt sich nicht verhindern (17)

Frage von liquidbase zum Thema Windows Update ...