Makroproblem für Profis
06.01.2005 18:11:50
Uwe
Ich benötige wieder eure Hilfe.
Folgende Thematik:
Ich habe mehrere Tabellenblätter, von denen jedoch bestimmte ausgeblendet sein sollen (Eins ist immer eingeblendet).
Der Name des Tabellenblatts ist variabel und bezieht sich auf eine bestimmte Zelle der Tabelle, wofür ich auch bereits ein Makro habe:
Private Sub Worksheet_Change(ByVal Target As Range)
'Name_in_das_Blattregister_übernehmen
If [B4] <> "" Then
ActiveSheet.Name = [B4]
End If
Range("A3").Select
End Sub
Wenn das Tabellenblatt ausgeblendet ist, dann soll über ein Makro der Name des Tabellenblatts auf z.B. 2 zurückgesetzt werden.
Zu Anfangs habe ich also EIN eingeblendetes und bis zu NEUN ausgeblendete Tabellenblätter. Über eine Schaltfläche (Name hinzufügen) soll ein ausgeblendetes Tabellenblatt aktiviert werden. Dabei soll eine InputBox geöffnet werden, der den Namen in die Zelle B4 schreibt:
'Name einfügen
Cells(4, 2) = InputBox("Name)
Dadurch ändert sich ebenfalls der Name des Tabellenblatts (siehe oben).
Von jeder Seite soll ein Neuer Name/ neues Tabellenblatt aufrufbar sein (bis die max. Anzahl von 10 erreicht ist).
Ich habe für aktive und inaktive eine Kennzahl (0 oder 1), so dass nach der Kennzahl 0 in der Zelle P7 eines jeden Tabellenblattes gesucht werden soll:
Formeln:
In Zelle P6 =ODER(B4=1;B4=2;B4=3;B4=4;B4=5;B4=6;B4=7;B4=8;B4=9;B4=10) und in Zelle P7 =WENN(P6;0;1).
Hat das Makro die erste Null gefunden, soll die InputBox für den Namen aufgerufen und das entsprechende Tabellenblatt eingeblendet werden.
Folgende Problematik:
Mein Problem besteht u.a. darin, dass sich die Tabellenblattnamen ständig ändern und das Makro nach der Namensänderung das Tabellenblatt nicht mehr erkennt.
Mein weiteres Problem ist, dass der Name aus der Inputbox nur in das gefundene Tabellenblatt eingefügt werden darf, d.h. ich kann die Zelle der InputBox Cells(4, 2) = InputBox("Name) nicht mehr fest definieren.
Ich hoffe, ich konnte mein Problem einigermaßen verständlich schildern und bitte um Hilfe, da ich bereits seit Stunden versuche dieses Problem zu lösen.
Wenn etwas unklar sein sollte, sagt mir bitte bescheid.
Vielen Dank.