Thema Datum  Von Nutzer Rating
Antwort
Rot automatische Tabellenblätter
 14.10.2014 22:20:33 mueslee
NotSolved

Ansicht des Beitrags:
Von:
mueslee		 Datum:
14.10.2014 22:20:33		 Views:
2002		 Rating:
     
Antwort:
  Ja
Thema:
automatische Tabellenblätter

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

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 automatische Tabellenblätter
 14.10.2014 22:20:33 mueslee
NotSolved