Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
356to360
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
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blattname und letzte Zeile

Blattname und letzte Zeile
31.12.2003 13:44:03
Daniel
Hallo Leute,

Wäre super, könnte mir jemand weiterhelfen.

Habe eine Arbeitsmappe mit etwa 40 Tabellenblättern. Von zirka der Hälfte dieser Blätter möchte Ich die Werte der jeweils letzten Zeile in ein existierendes Blatt (zB "Übersicht") kopieren. Die in Frage kommenden Blätter sind nach einem bestimmten Schema benannt (zB B0018, B0456, B0565), sie sind alle vierstellig und beginnen mit "B".
Noch dazu müsste der Blattname im Makro variabel gehalten werden, da sich die Anzahl der Blätter und deren Name ändert.

Danke für Eure Hilfe

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattname und letzte Zeile
31.12.2003 14:47:29
Josef Ehrensberger
Hallo Daniel,

kopier diesen Code in ein allgemeines Modul.




Sub LetzteZeileKopieren()
Dim lngE As Long     'Variable für erste freie Zeile im Zielblatt
Dim lngZ As Long     'Variable für letzte Zeile
Dim wks As Worksheet
lngE = Sheets("Übersicht").Range("A65536").End(xlUp).Row + 1
'Zieltabelle erste freie Zeile ermitteln
   For Each wks In ThisWorkbook.Sheets
      If Left(wks.Name, 1) = "B" And Len(wks.Name) = 5 Then
      'Name überprüfen (beginnt mit "B" und ist 5 Zeichen lang)
      lngZ = wks.Range("A65536").End(xlUp).Row
      'Letzte Zeile im Tabellenblatt ermitteln - Range anpassen an Spalte die immer ausgefüllt!
      wks.Rows(lngZ).EntireRow.Copy Sheets("Übersicht").Cells(lngE, 1)
      'Letzte Zeile kopieren
      lngE = lngE + 1
      'Zeilenzähler erhöhen
      End If
   Next
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5


Die Spalte zur ermittlung der letzten Zeile in den Tabellen
musst du ev. anpassen.

Gruß Sepp
Anzeige
AW: Blattname und letzte Zeile
02.01.2004 02:14:02
Daniel
Sorry für die späte Antwort,

Bei dem Code bekam Ich immer eine Fehlermeldun "Typen unverträglich".

Hab von anderer Quelle diesen Code "adaptiert":

Danke aber uf jeden Fall für die Hilfe.

For i = 1 To Sheets.Count
Application.ScreenUpdating = False
If Sheets(i).Name Like "B***" Then
zeilennummer = zeilennummer + 1
wksname = Sheets(i).Name
Sheets(wksname).Select
Sheets(wksname).Unprotect

wt = Sheets(i).Cells(2, 7).Value
ActiveCell.SpecialCells(xlLastCell).Select
Selection.End(xlDown).Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
ActiveCell.Offset(0, 0).Range("B1:K1").Copy
Sheets("Übersicht").Cells(zeilennummer, 3).PasteSpecial Paste:=xlValues, Operation:=xlNone
Cells(zeilennummer, 1).Value = wksname
Cells(zeilennummer, 2).Value = wt
Sheets(wksname).Protect
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige