Automatische Tabellenblätter

Forumthread: Automatische Tabellenblätter

14.10.2014 16:45:22

mueslee

Hallo liebe Community,
mit welchem Quelltext kann ich bei der Eingabe in eine bestimmte Spalte ein neues Tabellenblatt erzeugen, dass auch gleich entsprechend benannt wird.
Beste Grüße,
Florian

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Automatische Tabellenblätter

14.10.2014 18:30:10

yummi
AW: Automatische Tabellenblätter

14.10.2014 20:06:47

mueslee
AW: Automatische Tabellenblätter

14.10.2014 21:19:02

mueslee
AW: Automatische Tabellenblätter

16.10.2014 11:27:13

yummi

AW: Automatische Tabellenblätter

14.10.2014 18:30:10

yummi

Hallo mueslee,
wenn dein Name des neuen Tabellenblattes auf dem 1. Sheet in Zelle A1 steht so:


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets(1).Cells(1, 1).Value
End If
End Sub

VBA Editor öffnen (Alt+F11) doppelklick auf Tabellenblatt 1 und hinkopieren
Gruß
yummi

AW: Automatische Tabellenblätter

14.10.2014 20:06:47

mueslee

hallo yummi,
vielen Dank erstmal vorab für die bereitschaft mir zu helfen. Ich check das allerdings nicht. es funktioniert leider nicht wie beschrieben wenn ich den Quelltext in tabellenblatt 1 im vba editor kopiere. bei der eingabe von werten in zelle A1, entsteht keine neues Tabellenblatt mit entsprechender Bezeichnung. vielleicht muss ich es genauer beschreiben:
der Nutzer soll in Tabellenblatt "Zusammenfassung" in Zelle D6 eine beliebe, ganzzahlige Zahl (1234) schreiben. Durch Eingabe in diese Zelle soll das Tabellenblatt "Skizze1" geändert werden in das Tabellenblatt "1234".
Schreibt der Nutzer in Zelle D7 eine beliebige Zahl (9876),soll das selbe mit Tabellenblatt "Skizze2" passieren. usw
IDEALERWEISE, soll durch die Eingabe einer beliebigen Zahl "1234" auf Tabellenblatt "Zusammenfassung" in D6 ein Mustertabellenblatt "Muster" vollständig kopiert werden, die Kopie neu unter der Eingabe "1234" als Tabellenblatt angelegt werden. Zusätzlich muss nun allerdings noch die Zelle D6 und E6 in Zelle C2 und C3 des neu angelegten Tabellenblattes übernommen werden. Schreibt der Nutzer in Zelle D7 erneut eine beliebige Zahl soll das ganze erneut erfolgen.

AW: Automatische Tabellenblätter

14.10.2014 21:19:02

mueslee

ok, ich habe mich jetzt soweit durcharbeitet, dass ich die Zelleninhalte A1 bis A4 als Tabellen darstellen kann.

Sub tabellenblaetter()
Dim Bereich As String
Dim Zelle As Range
Dim Tabelle As Worksheet
Bereich = "a1:a4"
With ActiveWorkbook
For Each Zelle In ActiveSheet.Range(Bereich).Cells
Set Tabelle = .Sheets.Add(After:=.Sheets(Sheets.Count))
Tabelle.Name = Zelle.Text
Next Zelle
End With
End Sub

problem 1) ich muss immernoch das makro manuell ausführen. wie kann das makro automatisch nach Eingabe in Zelle A1 ausgeführt werden?
problem 2) wie kann ich excel dazu bringen, dass ein bestehendes Tabellenblatt vollständig kopiert wird und nur dessen Bezeichnung (entsprechend A1-A4) angepasst wird?

AW: Automatische Tabellenblätter

16.10.2014 11:27:13

yummi

Hallo mueslee,
lad doch mal deine Datei hoch mit einer Beschreibung was noch nicht geht, dann schau ich mir das an.
Gruß
yummi
PS: wenn dein Makro auf eingaben reagieren soll, dann muss es in den code des entsprechenden Tabellenblattes (change oder selection_change).

Forumthread: Automatische Tabellenblätter

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread