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

Hochkomma mit VBSCRPT aus Excel ausgeben

Frage Microsoft Microsoft Office

Mitglied: viking

viking (Level 1) - Jetzt verbinden

08.08.2010 um 00:44 Uhr, 3798 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
! und Hochkomma in excelformel
gelöst Frage von Campino86Microsoft Office7 Kommentare

Hallo, ich habe von einem bekannten eine Excel Tabelle bekommen, die ich für ihn anpassen sollte. jedoch komme ich ...

Microsoft Office
Excel nächstligenden Wert ausgeben
gelöst Frage von Florian86Microsoft Office5 Kommentare

Hallo, ich habe folgende Tabelle Spalte A Spalte B Spalte C Spalte D Spalte E Spalte F Wert1 Bemerkung ...

Batch & Shell
Hochkomma im String vom Bash shell
Frage von OIOOIOOIOIIOOOIIOIIOIOOOBatch & Shell7 Kommentare

Hallo an alle, ich suche eine Möglichkeit einen Vollständigen Befehl in String zur verpacken. Ja ich könnte es da ...

Microsoft Office
Excel - Mehrere Zelleninhalte in einer Zelle ausgeben
gelöst Frage von Stefan007Microsoft Office4 Kommentare

Hallo Leute, habe mal ein Problem, an dem ich nicht weiterkomme. Es geht um eine Turniertabelle wie unten abgebildet. ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 4 StundenWindows 10

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 5 StundenSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 20 StundenInternet3 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 23 StundenDSL, VDSL1 Kommentar

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Netzwerkmanagement
Mehrere Netzwerkadapter in einem PC zu einem Switch zusammenfügen
Frage von prodriveNetzwerkmanagement21 Kommentare

Hallo zusammen Vorweg, ich konnte schon einige IT-Probleme mit Hilfe dieses Forums lösen. Wirklich klasse hier! Doch für das ...

Windows Server
Anmeldung direkt am DC nicht möglich
Frage von ThomasGrWindows Server16 Kommentare

Hallo, ich habe bei unserem Server 2016 Standard ein Problem. Keine Ahnung wie das auf einmal passiert ist. Ich ...

Hardware
Links klick bei Maus funktioniert nicht
gelöst Frage von Pablu23Hardware16 Kommentare

Hallo erstmal. Ich habe ein Problem mit meiner relativ alten maus jedoch denke ich nicht das es an der ...

TK-Netze & Geräte
VPN-fähige IP-Telefone
Frage von the-buccaneerTK-Netze & Geräte15 Kommentare

Hi! Weiss noch jemand ein VPN-fähiges IP-Telefon mit dem man z.B. einen Heimarbeitsplatz gesichert anbinden könnte? Habe nur einen ...