Office: Print #1, ... Zwischenablage Excel in txt-Datei

Steffen0815 · 4. Oktober 2006

Hallo,

Excel hat doch keine eigene exklusive Zwischenablage, oder?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Eben aus diesem Grund würde ich einen zeilenweisen Export vorziehen, denn dort braucht man keine Zwischenablage.

Freak33 · 4. Oktober 2006

Wo bleiben dann die Daten nach dem Copy ab?

Steffen0815 · 4. Oktober 2006

Hallo,
ich wüsste nicht, wann beim zeilenweisen Export ein Copy benötigt wird !?

Freak33 · 4. Oktober 2006

Vielleicht habe ich mich unpräzise ausgedrückt.

Was ich meine ist, auch beim txt Export, liest er ja die Daten der Zeile ein und schreibt Sie dann mit Print #1, s in die txt Datei. Nach dem Lesen, muss er sich aber doch die zu schreibende Zeile irgendwo merken. Ich vermute dort auch die Zwischenablage.

Steffen0815 · 4. Oktober 2006

Hallo,
bei dem vorgeschlagenen Code: Code:

Sub TabelleAlsTextExportieren()
' Bernd Held: Excel VBA in 21 Tagen
Dim Bereich As Range
Dim Zeile As Range
Dim zelle As Range
Dim s As String
Sheets("Tabelle2").Activate
Set Bereich = ActiveSheet.UsedRange
Open "C:\Daten\Liste.txt" For Output As #1
For Each Zeile In Bereich.Rows
For Each zelle In Zeile.Cells
s = s & zelle.Text & ";"
Next
s = Left(s, Len(s) - 1)
Print #1, s
s = ""
Next
Close #1
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wird der Wert aus der Zelle in eine Variable geschrieben.
Da läuft nix über die Zwischenablage.

ET-Student · 4. Oktober 2006

Abend,

ich habe nicht ganz das gleiche aber vieleicht kannst du was damit anfangen:

speichern
Code:

Private Sub CommandButton15_Click()
Dim s As String
If ListBox2.ListCount > 0 Then
Set fs = CreateObject("Scripting.FileSystemObject")
text = ThisWorkbook.Path & "\Archiv\Entwürfe\" & "Entwurf_" & Day(Date) & "_" & Month(Date) & "_" & Year(Date) & "_" & Hour(Now) & "_" & Minute(Now) & ".txt"
Pfad = Application.GetSaveAsFilename(InitialFilename:=text, fileFilter:="Text Files (*.txt), *.txt", Title:="Speicher unter:")
If Pfad False Then
Set a = fs.CreateTextFile(text, True)
For i = 0 To ListBox2.ListCount - 1
s = ListBox2.List(i, 0) & ";" & ListBox2.List(i, 1)
a.WriteLine (s)
Next i
a.Close
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

laden Code:

Private Sub CommandButton22_Click()
Dim Textlinks As String
Dim Textrechts As String
Dim Posi As Integer
ScreenUpdating = False
If ListBox2.ListCount > 0 Then
Antwort = MsgBox("Es wurde bereits eine Auswahl erstellt." & Chr(10) & "Durch das Laden werden diese Daten gelöscht!", vbOKCancel + vbExclamation, "Meldung")
If Antwort = vbCancel Then
GoTo sprung
End If
End If
For Each TB In Worksheets("Auswahl").OLEObjects
If TypeOf TB.Object Is CommandButton Then
TB.Object.Font.Bold = False
TB.Object.Enabled = True
End If
Next TB
ScreenUpdating = True
ListBox2.Clear
Set fs = CreateObject("Scripting.FileSystemObject")
Pfad = ActiveWorkbook.Path & "\Archiv\Entwürfe"
ChDrive Left(Pfad, 3)
ChDir Pfad
Pfad = Application.GetOpenFilename(fileFilter:="Text Files (*.txt), *.txt", Title:="Textdatei laden")
If Pfad = False Then
GoTo sprung
Else
Set a = fs.OpenTextFile(Pfad, 1, 0)
i = 0
Do Until a.AtEndOfLine
text = a.ReadLine
Posi = InStr(1, text, ";")
Textlinks = Left(text, Posi - 1)
Textrechts = Right(text, Len(text) - Posi)
ListBox2.AddItem ""
ListBox2.List(i, 0) = Textlinks
ListBox2.List(i, 1) = Textrechts
i = i + 1
Loop
End If
k = ListBox2.ListCount
For i = 0 To k - 1
temp = ListBox2.List(i, 1)
If Trim(ListBox2.List(i, 0)) Trim(Worksheets("Option").Cells(temp, 1)) Then
Antwort = MsgBox("Geladenes Datenmaterial stimmt nicht mehr mit der derzeit aktuellen Liste überein." & Chr(10) & _
"Das Programm kann versuchen den Eintrag " & Chr(34) & Trim(ListBox2.List(i, 0)) & Chr(34) & " zu korrigieren." & Chr(10) & _
"Wünschen Sie eine Korrektur?", vbYesNo, "Fehler beim Datei laden!")
End If
If Antwort = vbYes Then
k = Worksheets("Option").Range("A65536").End(xlUp).Row
j = 1
Do While j < k + 1
If Trim(Worksheets("Option").Cells(j, 1)) = Trim(ListBox2.List(i, 0)) Then
ListBox2.List(i, 1) = j
MsgBox "Eintrag " & Chr(34) & Trim(ListBox2.List(i, 0)) & Chr(34) & " wurde aktualisiert."
j = k + 1
End If
If j = k Then
MsgBox "Eintrag " & Chr(34) & Trim(ListBox2.List(i, 0)) & Chr(34) & " konnte nicht aktualisiert werden." & Chr(10) & "Programm funktioniert nicht richtig mit dieser Auswahl. Bitte suchen und ersetzen Sie den falschen Begriff!"
End If
j = j + 1
Loop
Antwort = ""
End If
Next i
sprung:
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Freak33 · 4. Oktober 2006

Danke ich schaue mal.

Also wird bei der Textexportvariante diese Variable im Speicher definiert und gefüllt und später der Inhalt dort ausgelesen. Während die Copy und Paste-Geschichte über die Zwischenablage läuft?

Office: Print #1, ... Zwischenablage Excel in txt-Datei

Print #1, ... Zwischenablage Excel in txt-Datei

Print #1, ... Zwischenablage Excel in txt-Datei

Print #1, ... Zwischenablage Excel in txt-Datei

Print #1, ... Zwischenablage Excel in txt-Datei - Similar Threads - Print Zwischenablage Excel

Berichte mit Microsoft print to pdf ausgeben

Print ohne Zeilenumbruch

Printer-Eigenschaft (Drucker)

print to PDF aus Word ohne Verfasser

Nur eine gewisse Anzahl Seiten ausdrucken. Wie das?

VBA-Print Out

Print Out und Export nach Excel von Pivot Tabellen, SEARCH