Thema Datum  Von Nutzer Rating
Antwort
Rot Alle Tabellenblätter in Spalte D mit Namen versehen
03.01.2024 20:59:38 Darius
Solved
03.01.2024 21:37:29 Darius
Solved
03.01.2024 21:55:59 Darius
Solved
04.01.2024 09:44:27 ralf_b
Solved

Ansicht des Beitrags:
Von:
Darius
Datum:
03.01.2024 20:59:38
Views:
648
Rating: Antwort:
 Nein
Thema:
Alle Tabellenblätter in Spalte D mit Namen versehen

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 :)

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Alle Tabellenblätter in Spalte D mit Namen versehen
03.01.2024 20:59:38 Darius
Solved
03.01.2024 21:37:29 Darius
Solved
03.01.2024 21:55:59 Darius
Solved
04.01.2024 09:44:27 ralf_b
Solved