Buttons, Diagrammtitel Beeichnung ändern und Zelle
31.05.2007 00:20:00
peter
ich will in einem rechten xls mit vielen Tabellenblättern eine Möglichkeit schaffen per Knopfdruck die Sprache umzustellen. Dazu benutze ich eine Art umgebaute "Suchen und Ersetzen"-Funktion.
Sub Begriffe_in_zelle_ersetzen() Dim w As Worksheet Dim aktuell As String, zeilen As String, spalten As String For zeile = 4 To 27 aktuell = Worksheets("Translation").Cells(zeile, 1).Text neu = Worksheets("Translation").Cells(zeile, 2).Text For Each w In Worksheets w.Activate If w.Name "Translate" Then w.Cells.Replace What:=aktuell, Replacement:=neu, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End If Next w Next End Sub
Allerdings funktioniert Button_Bezeichnung_Ändern nicht und ich mir fehlt auch noch die Möglichkeit per Knopfdruck umzuschalten. Ich dachte an eine Art Auswahlfeld. Wie kann ich das anstellen?
Die Funktion Diagrammtitel_Ändern muss ich noch mit einer Schleife erweitern.
Wie kann ich das alles in eine Funktion packen?
Wie komme ich an die Anzahl der Zeilen in denen in einem Worksheet Inhalt steht? So dass ich bei " For zeile = 4 To 27" Die 27 ersetzen kann?
Ich stehe noch sehr am Anfag mit VBA und bin für jeden Tip dankbar.
Gruß und vielen Dank.
Anzeige