Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
596to600
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige