Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Letzte Zeile auslesen

Letzte Zeile auslesen
14.04.2005 16:34:09
Matthias
Hallo Freunde der Excelkunst,
Habe eine Excelblatt mit Spalte A;B;C;D;E;F;G und den jeweiligen Zeilen dazu.
Nun habe ich folgende Frage dazu: Wie kann ich die letzte Zeile von Spalte A;C;E;F;G sowie die Überschrift aus diesem Blatt auslesen und das in neues automatisch erzeugtes Blatt hinein schreiben ? Geht das ?
Besten Dank im voraus.
Matthias
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Zeile auslesen
14.04.2005 18:32:16
Volker
Hallo Mathias,
wie wärs damit:

Sub neues_blatt()
Dim wks1, wks2 As String
Dim i As Integer
i = 1
wks1 = ActiveSheet.Name
Worksheets.Add
wks2 = ActiveSheet.Name
While Sheets(wks1).Cells(1, i) <> "" And i < 8
Sheets(wks2).Cells(1, i) = Sheets(wks1).Cells(1, i)
Sheets(wks2).Cells(2, i) = Sheets(wks1).Cells(1, i).End(xlDown)
i = i + 1
If i = 2 Or i = 4 Then
i = i + 1
End If
Wend
End Sub

Gruß
Volker
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige