Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
408to412
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

AW: Letzte gef?llte Zeile der Spalte A

AW: Letzte gef?llte Zeile der Spalte A
Heinz
Hallo Michael,
nimm doch einfach usedRange.

Sub test1()
' test1 Makro
' Makro am 02.04.2004 von  Heinz aufgezeichnet
ActiveSheet.UsedRange.Copy
Sheets("Tabelle1").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Gru? Heinz

45
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Letzte gef?llte Zeile der Spalte A
Michael
Hallo Heinz,
leider hilft mir das nicht weiter. Wenn ich das einf?ge bleibt meine Exportdatei leer.
Mit freundlichen Gr??en
Michael
AW: Letzte gef?llte Zeile der Spalte A
Heinz
Hallo Michael,
deine Nachricht habe ich vorhin nicht gelesen.
Das verstehe ich aber nicht.
Bei mir kopiert er den benutzten Bereich, geht auf die Tabelle 1 und f?gt die Werte ein.
Kannst du mal den kompletten Code posten der nicht geht?
Gru? Heinz
AW: Letzte gef?llte Zeile der Spalte A
Michael
Hallo Heinz,
habe ich nur mache ich da wohl was falsch da meine Exportdatei leer bleibt. Habe den Text so eingef?gt:

Sub lz2()
Dim zeile As Long
Dim spalte As Integer
Dim text As String
Dim trenner As String
Dim sFile As String
trenner = "|" 'Trennzeichen = |
Close #1
'Name und Speicherort festlegen
sFile = Application.GetSaveAsFilename(InitialFileName:="Export.txt", _
fileFilter:="Text Files (*.txt), *.txt")
If sFile = "" Then Exit Sub
'?ffnen der Textdatei
Open sFile For Output As 1
'Schleife f?r Zeilen
For zeile = 3 To ActiveSheet.UsedRange.Copy
Sheets("Tabelle1").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
text = ""
'Schleife f?r Spalten
For spalte = 1 To 40
text = text & CVar(Cells(zeile, spalte))
If spalte < 41 Then text = text & trenner
Next
Print #1, text
Next
'Schlie?en der Textdatei
Close #1
End Sub


was wohl falsch ist. Ich habe auch noch was in den ersten 3 Zeilen stehen was ich aber nicht exportieren will.
Mit freundlichen Gr??en
Michael
Anzeige
AW: Letzte gef?llte Zeile der Spalte A
Heinz
Hallo Michael,
Du ?ffnest doch die Text-Datei in Excel, nehme ich an und exxportierst sie ein Textprogramm.
Leider habe ich deinen Hinweis auf die ersten drei Zeilen ?bersehen. Ich suche gerade eine M?glichkeit die letzte Zeile per VBA auszulesen.
Mal sehen was ich finde.
Gru? Heinz
AW: Letzte gef?llte Zeile der Spalte A
Michael
Hallo Heinz,
ich mache eine Auflistung in Excel, welche ich dann in eine Textdatei exportiere.
Mit freundlichen Gr??en
Michael
AW: Letzte gef?llte Zeile der Spalte A
Nepumuk
Hallo Michael,
versuch es mal so:


Sub lz2()
    Dim zeile As Long
    Dim lZeile As Long
    Dim spalte As Integer
    Dim text As String
    Dim trenner As String
    Dim sFile As String
    trenner = "|" 'Trennzeichen = |
    Close #1
    'Name und Speicherort festlegen
    sFile = Application.GetSaveAsFilename(InitialFileName:="Export.txt", _
    fileFilter:="Text Files (*.txt), *.txt")
    If sFile = "" Then Exit Sub
    'Öffnen der Textdatei
    Open sFile For Output As 1
    For spalte = 1 To 40
        If lZeile < Cells(65536, spalte).End(xlUp).Row Then lZeile = Cells(65536, spalte).End(xlUp).Row
    Next
    'Schleife für Zeilen
    For zeile = 3 To lZeile
    
        'Schleife für Spalten
        For spalte = 1 To 40
            text = text & CVar(Cells(zeile, spalte)) & trenner
        Next
        text = Left(text, Len(text) - 1)
        If zeile < lZeile Then Print #1, text Else Print #1, text;
        text = ""
    Next
    
    'Schließen der Textdatei
    Close #1
End Sub


Gru?
Nepumuk
Anzeige
AW: Letzte gef?llte Zeile der Spalte A
Michael
Hallo Nepumuk,
deine L?sung ist fast brauchbar, sie hat einen kleinen Fehler. In jeder Zeile muss ein Trenner ( | ) stehen, welcher bei deiner L?sung fehlt. Ich glaube aber wir sind auf dem richtigen weg.
Mit freundlichen Gr??en
Michael
AW: Letzte gef?llte Zeile der Spalte A
Nepumuk
Hallo Michael,
so wie ich dein programm verstehe, machst du zwischen jeder Spalte ein Trennzeichen. Das macht meine Version auch.
Gru?
Nepumuk
Es klappt!!!! Danke an alle die mir geholfen haben
Michael
Hallo Nepumuk,
ich komme nun schon selbst durcheinander. Du hast vollkommen recht und deine Version ist OK ich war der Meinung das hinter dem letzten Datenfeld noch ein | stehen muss, dem ist aber nicht so. Ich m?chte mich noch mal bei allen die sich meinem Problem angenommen haben bedanken. Das ist hier echt ein super Forum.
Mit freundlichen Gr??en
Michael
Anzeige
AW: Letzte gef?llte Zeile der Spalte A
Heinz
Hallo Michael,
versuchs mal damit:

Sub lz2()
Dim zeile As Long
Dim spalte As Integer
Dim text As String
Dim trenner As String
Dim sFile As String
Dim Endzeile As Integer
trenner = "|" 'Trennzeichen = |
Close #1
'Name und Speicherort festlegen
sFile = Application.GetSaveAsFilename(InitialFileName:="Export.txt", _
fileFilter:="Text Files (*.txt), *.txt")
If sFile = "" Then Exit Sub
'?ffnen der Textdatei
Open sFile For Output As 1
'Schleife f?r Zeilen
Range("A65536").End(xlUp).Offset(0, 0).Activate 'Bestimmen der letzten Zeile in Sp. A
Endzeile = ActiveCell.Row 'Bestimmen der Zeilennummer der letzten Zeile
For zeile = 3 To Endzeile
text = ""
'Schleife f?r Spalten
For spalte = 1 To 40
text = text & CVar(Cells(zeile, spalte))
If spalte < 41 Then text = text & trenner
Next
Print #1, text
Next
'Schlie?en der Textdatei
Close #1
End Sub

Nicht getestet.
Gru? Heinz
Anzeige
AW: Letzte gef?llte Zeile der Spalte A
Michael
Hallo Heinz,
leider ist die letzte Zeile immer noch leer.
Mit freundlichen Gr??en
Michael
AW: Letzte gef?llte Zeile der Spalte A
Bert
Mit
[a65536].end(xlup).row
ermittelst du die letzte Zeile, wenn a65536 leer ist.
Bert
AW: Letzte gef?llte Zeile der Spalte A
Michael
Hallo Bert,
danke f?r die Hilfe klappt wunderbar. Ein kleines Problem habe ich jetzt noch, der Courser steht nun in meiner Exportdatei (.txt) in einer leeren Zeile, er muss aber in der letzten Zeile mit Text stehen. Also ohne Enter.
Mit freundlichen Gr??en
Michael
AW: Letzte gef?llte Zeile der Spalte A
Bert
Tut mir Leid, verstehe ich nicht, was hat der Cursor damit zu tun?
Bert
AW: Letzte gef?llte Zeile der Spalte A
Michael
Damit ich die Exportdatei weiterverarbeiten kann, darf der Courser nicht in einer leeren Zeiler stehen. Oder besser gesagt am ende der letzten Zeile welch text enth?lt darf kein Enter kommen. Wenn ich die Textdatei ?ffnen w?rde, schreibe ich in der letzten gef?llten Zeile weiter. Ich hoffe das ist einigerma?en verst?ndlich.
Mit freundlichen Gr??en
Michael
Anzeige
NOCH OFFEN
Bert
oT
AW: NOCH OFFEN
Michael
was bedeutet oT ?
Ohne Text oT
Bert
..
AW: Ohne Text oT
Michael
Danke, wieder was dazu gelernt.
AW: Letzte gef?llte Zeile der Spalte A
Erich
Hallo Michael,
wie w?rs damit:
Range("A65536").End(xlUp).Offset(0, 0).Select
mfg
Erich
AW: Letzte gef?llte Zeile der Spalte A
Michael
Hallo Erich,
leider hilft das nicht. Der Courser ist jetzt zwar oben, aber ich habe am Ende meiner Exportdatei immer noch eine leere Zeile, die ich aber nicht haben darf.
Mit freundlichen Gr??en
Michael
AW: Letzte gef?llte Zeile der Spalte A
04.04.2004 17:42:32
Heinz
Hallo Michael,
hast du mal meinen usedRange-Code probiert?
Damit wird nur der benutzte Bereich kopiert, ohne Leerzeile.
Gru? Heinz
AW: Letzte gef?llte Zeile der Spalte A
Heinz
Hallo Michael,
nimm doch einfach usedRange.

Sub test1()
' test1 Makro
' Makro am 02.04.2004 von  Heinz aufgezeichnet
ActiveSheet.UsedRange.Copy
Sheets("Tabelle1").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Gru? Heinz
Anzeige
AW: Letzte gef?llte Zeile der Spalte A
Michael
Hallo Heinz,
leider hilft mir das nicht weiter. Wenn ich das einf?ge bleibt meine Exportdatei leer.
Mit freundlichen Gr??en
Michael
AW: Letzte gef?llte Zeile der Spalte A
Heinz
Hallo Michael,
deine Nachricht habe ich vorhin nicht gelesen.
Das verstehe ich aber nicht.
Bei mir kopiert er den benutzten Bereich, geht auf die Tabelle 1 und f?gt die Werte ein.
Kannst du mal den kompletten Code posten der nicht geht?
Gru? Heinz
AW: Letzte gef?llte Zeile der Spalte A
Michael
Hallo Heinz,
habe ich nur mache ich da wohl was falsch da meine Exportdatei leer bleibt. Habe den Text so eingef?gt:

Sub lz2()
Dim zeile As Long
Dim spalte As Integer
Dim text As String
Dim trenner As String
Dim sFile As String
trenner = "|" 'Trennzeichen = |
Close #1
'Name und Speicherort festlegen
sFile = Application.GetSaveAsFilename(InitialFileName:="Export.txt", _
fileFilter:="Text Files (*.txt), *.txt")
If sFile = "" Then Exit Sub
'?ffnen der Textdatei
Open sFile For Output As 1
'Schleife f?r Zeilen
For zeile = 3 To ActiveSheet.UsedRange.Copy
Sheets("Tabelle1").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
text = ""
'Schleife f?r Spalten
For spalte = 1 To 40
text = text & CVar(Cells(zeile, spalte))
If spalte < 41 Then text = text & trenner
Next
Print #1, text
Next
'Schlie?en der Textdatei
Close #1
End Sub


was wohl falsch ist. Ich habe auch noch was in den ersten 3 Zeilen stehen was ich aber nicht exportieren will.
Mit freundlichen Gr??en
Michael
Anzeige
AW: Letzte gef?llte Zeile der Spalte A
Heinz
Hallo Michael,
Du ?ffnest doch die Text-Datei in Excel, nehme ich an und exxportierst sie ein Textprogramm.
Leider habe ich deinen Hinweis auf die ersten drei Zeilen ?bersehen. Ich suche gerade eine M?glichkeit die letzte Zeile per VBA auszulesen.
Mal sehen was ich finde.
Gru? Heinz
AW: Letzte gef?llte Zeile der Spalte A
Michael
Hallo Heinz,
ich mache eine Auflistung in Excel, welche ich dann in eine Textdatei exportiere.
Mit freundlichen Gr??en
Michael
AW: Letzte gef?llte Zeile der Spalte A
Nepumuk
Hallo Michael,
versuch es mal so:


Sub lz2()
    Dim zeile As Long
    Dim lZeile As Long
    Dim spalte As Integer
    Dim text As String
    Dim trenner As String
    Dim sFile As String
    trenner = "|" 'Trennzeichen = |
    Close #1
    'Name und Speicherort festlegen
    sFile = Application.GetSaveAsFilename(InitialFileName:="Export.txt", _
    fileFilter:="Text Files (*.txt), *.txt")
    If sFile = "" Then Exit Sub
    'Öffnen der Textdatei
    Open sFile For Output As 1
    For spalte = 1 To 40
        If lZeile < Cells(65536, spalte).End(xlUp).Row Then lZeile = Cells(65536, spalte).End(xlUp).Row
    Next
    'Schleife für Zeilen
    For zeile = 3 To lZeile
    
        'Schleife für Spalten
        For spalte = 1 To 40
            text = text & CVar(Cells(zeile, spalte)) & trenner
        Next
        text = Left(text, Len(text) - 1)
        If zeile < lZeile Then Print #1, text Else Print #1, text;
        text = ""
    Next
    
    'Schließen der Textdatei
    Close #1
End Sub


Gru?
Nepumuk
Anzeige
AW: Letzte gef?llte Zeile der Spalte A
Michael
Hallo Nepumuk,
deine L?sung ist fast brauchbar, sie hat einen kleinen Fehler. In jeder Zeile muss ein Trenner ( | ) stehen, welcher bei deiner L?sung fehlt. Ich glaube aber wir sind auf dem richtigen weg.
Mit freundlichen Gr??en
Michael
AW: Letzte gef?llte Zeile der Spalte A
Nepumuk
Hallo Michael,
so wie ich dein programm verstehe, machst du zwischen jeder Spalte ein Trennzeichen. Das macht meine Version auch.
Gru?
Nepumuk
Es klappt!!!! Danke an alle die mir geholfen haben
Michael
Hallo Nepumuk,
ich komme nun schon selbst durcheinander. Du hast vollkommen recht und deine Version ist OK ich war der Meinung das hinter dem letzten Datenfeld noch ein | stehen muss, dem ist aber nicht so. Ich m?chte mich noch mal bei allen die sich meinem Problem angenommen haben bedanken. Das ist hier echt ein super Forum.
Mit freundlichen Gr??en
Michael
Anzeige
AW: Letzte gef?llte Zeile der Spalte A
Heinz
Hallo Michael,
versuchs mal damit:

Sub lz2()
Dim zeile As Long
Dim spalte As Integer
Dim text As String
Dim trenner As String
Dim sFile As String
Dim Endzeile As Integer
trenner = "|" 'Trennzeichen = |
Close #1
'Name und Speicherort festlegen
sFile = Application.GetSaveAsFilename(InitialFileName:="Export.txt", _
fileFilter:="Text Files (*.txt), *.txt")
If sFile = "" Then Exit Sub
'?ffnen der Textdatei
Open sFile For Output As 1
'Schleife f?r Zeilen
Range("A65536").End(xlUp).Offset(0, 0).Activate 'Bestimmen der letzten Zeile in Sp. A
Endzeile = ActiveCell.Row 'Bestimmen der Zeilennummer der letzten Zeile
For zeile = 3 To Endzeile
text = ""
'Schleife f?r Spalten
For spalte = 1 To 40
text = text & CVar(Cells(zeile, spalte))
If spalte < 41 Then text = text & trenner
Next
Print #1, text
Next
'Schlie?en der Textdatei
Close #1
End Sub

Nicht getestet.
Gru? Heinz
AW: Letzte gef?llte Zeile der Spalte A
Michael
Hallo Heinz,
leider ist die letzte Zeile immer noch leer.
Mit freundlichen Gr??en
Michael
AW: Letzte gef?llte Zeile der Spalte A
Bert
Mit
[a65536].end(xlup).row
ermittelst du die letzte Zeile, wenn a65536 leer ist.
Bert
AW: Letzte gef?llte Zeile der Spalte A
Michael
Hallo Bert,
danke f?r die Hilfe klappt wunderbar. Ein kleines Problem habe ich jetzt noch, der Courser steht nun in meiner Exportdatei (.txt) in einer leeren Zeile, er muss aber in der letzten Zeile mit Text stehen. Also ohne Enter.
Mit freundlichen Gr??en
Michael
AW: Letzte gef?llte Zeile der Spalte A
Bert
Tut mir Leid, verstehe ich nicht, was hat der Cursor damit zu tun?
Bert
AW: Letzte gef?llte Zeile der Spalte A
Michael
Damit ich die Exportdatei weiterverarbeiten kann, darf der Courser nicht in einer leeren Zeiler stehen. Oder besser gesagt am ende der letzten Zeile welch text enth?lt darf kein Enter kommen. Wenn ich die Textdatei ?ffnen w?rde, schreibe ich in der letzten gef?llten Zeile weiter. Ich hoffe das ist einigerma?en verst?ndlich.
Mit freundlichen Gr??en
Michael
NOCH OFFEN
Bert
oT
AW: NOCH OFFEN
Michael
was bedeutet oT ?
Ohne Text oT
Bert
..
AW: Ohne Text oT
Michael
Danke, wieder was dazu gelernt.
AW: Letzte gef?llte Zeile der Spalte A
Erich
Hallo Michael,
wie w?rs damit:
Range("A65536").End(xlUp).Offset(0, 0).Select
mfg
Erich
AW: Letzte gef?llte Zeile der Spalte A
Michael
Hallo Erich,
leider hilft das nicht. Der Courser ist jetzt zwar oben, aber ich habe am Ende meiner Exportdatei immer noch eine leere Zeile, die ich aber nicht haben darf.
Mit freundlichen Gr??en
Michael
AW: Letzte gef?llte Zeile der Spalte A
04.04.2004 17:42:32
Heinz
Hallo Michael,
hast du mal meinen usedRange-Code probiert?
Damit wird nur der benutzte Bereich kopiert, ohne Leerzeile.
Gru? Heinz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige