Hallo liebe VBA Gemeinde,
ich bin Neuling im VBA und ab hier völlig überfragt...
Problem: Ich möchte in dem Tabellenblatt "Zusammenfassung" (Tabelle 2) in Zelle D6 eine beliebe, ganzzahlige Zahl (1234) schreiben. Durch Eingabe in diese Zelle soll das Tabellenblatt "abc" geändert werden in das Tabellenblatt "1234".
Schreibt der Nutzer in Zelle D7 eine beliebige Zahl (9876), soll das selbe mit Tabellenblatt "def" 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.
Soweit bin ich gekommen:
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?
Viele Grüße und Besten Dank für eure Ideen
|