Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1720to1724
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
1720to1724
1720to1724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter erweitern

Tabellenblätter erweitern
31.10.2019 12:44:31
Gigi
Hallo liebes Forum,
ich bin nach längerer Zeit wieder in die VBA-Welt eingestiegen.
Leider stehe ich jetzt schon auf den Schlauch. Falls jemand Lektüre oder einen alten Beitrag bzw. einen Lösungsvorschlag wäre ich sehr dankbar. Hab leider nichts über die SuFu gefunden...
Mein Anliegen.
Ich will ein Makro erstellen, dass mir aus der Spalte A4 bis zum Ende des Spalte wo Text ist sich die Namen kopiert.
Jetzt soll in einer neuen vorhandenen Datei das Tabellenblatt 1 geöffnet werden.
Dieses Tabellenblatt wird kopiert und um ein Sheet erweitert mit dem gleichen Inhalt aber jetzt soll das neue Sheet jeweils immer einen der kopierten Namen enthalten.
Beispiel:
Datei 1
A4 Blau
A5 Gelb
A6 Grün
A7 Schwarz
Datei 2
Sheet 1 wird kopiert
Sheet 2 wird erstellt
Kopierter Inhalt des Sheet 1 wird in Sheet 2 eingefügt und in Blau unbennant
usw.
Falls dies nicht geht, sollte der Name in A1 auftauchen, das würde mir auch schon sehr helfen.
Gruß Gigi, freue mich auf Lösungsvorschläge oder Literaturhinweise

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter erweitern
31.10.2019 13:23:22
Werner
Hallo,
so: 
Option Explicit
Public Sub Blätter_erstellen()
Dim wbZ As Workbook, wsZiel As Worksheet
Dim loLetzte As Long, i As Long
'Name des Workbooks (Datei mit dem Vorlagenblatt) anpassen
Set wbZ = Workbooks("Mappe2.xlsx")
Application.ScreenUpdating = False
'Name des Worksheet (Blatt mit den Namen in Spalte A) anpassen
With ThisWorkbook.Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 1 To loLetzte
With wbZ
On Error Resume Next
'Name des Worksheet (Blatt mit den Namen in Spalte A) anpassen
Set wsZiel = wbZ.Worksheets(CStr(ThisWorkbook.Worksheets("Tabelle1").Cells(i, "A"))) _
If wsZiel Is Nothing Then
'Name des Worksheet (das Blatt das kopiert wird) anpassen
.Worksheets("Tabelle1").Copy after:=.Worksheets(.Sheets.Count)
'Name des Worksheet (Blatt mit den Namen in Spalte A) anpassen
ActiveSheet.Name = ThisWorkbook.Worksheets("Tabelle1").Cells(i, "A")
On Error GoTo 0
Else
Set wsZiel = Nothing
End If
End With
Next i
End With
'Name des Worksheet (Blatt mit den Namen in Spalte A) anpassen
ThisWorkbook.Worksheets("Tabelle1").Activate
Set wbZ = Nothing: Set wsZiel = Nothing
End Sub
Gruß Werner
Anzeige
AW: Tabellenblätter erweitern
31.10.2019 13:40:07
Gigi
Hallo Werner,
ein ganz großes Dankeschön meinerseits.
Ich setzte mich nach der Arbeit daran.
Gruß Gigi
Gerne u. Danke für die Rückmeldung. o.w.T.
02.11.2019 11:17:28
Werner

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige