|
Hallo zusammen,
ich hoffe ich kann meine Problematik ein wenig beschreiben und hoffe auf ein paar Denkanstößen da ich mich erst in VBA einfinde und noch nie etwas dergleichen gemacht habe. Bitte nicht enthaupten :/
Aufbau ist wie folgt:
Es gibt knapp 50-60 Tabellenblätter in einer Arbeitsmappe.
Jedes Tabellenblatt hat einen eigenen Namen welcher den Lagerplatz widerspiegelt.
Jedes Tabellenblatt ist gleich aufgebaut (Spalte A Artikelname, Spalte B Stückmenge und Spalte C Preis)
ich suche nach einer Möglichkeit...
wie ich automatisiert in Spalte D fortlaufend bis letzte Zeile mit Wert, den Namen des jeweiligen Tabellenblattes eintrage.
Das über alle 50-60 Blätter.
Für eine Zelle + 1 Tabellenblatt ist es ja kein Problem: ActiveSheet.Range("A1").Value = ActiveSheet.Name
Ich stehe aber nun auf den Schlauch die Copy Schleife zu bauen mit End(xlUp)...
Im Anschluss möchte ich ein "Master Tabellenblatt" erzeugen, wo sämtliche Werte Spalte A : D hineinkopiert wird.
Das hätte ich jetzt so gelöst (nichts gegen meine Formatierung - wie gesagt, blutiger Anfänger)
Option Explicit
Sub Kopieren()
Dim Ws As Worksheet
For Each Ws In Worksheets
If Ws.Name <> "Master" Then
Ws.UsedRange.Offset(1).Resize(Ws.UsedRange.Rows.Count - 1).Copy
Tabelle1.Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial
End If
Next Ws
End Sub
Vielen Dank vorab für Eure Hilfe :)
|