Thema Datum  Von Nutzer Rating
Antwort
Rot Begriffe in Zellen, Diagrammen und Buttons ändern
 31.05.2007 00:13:47 Karl
NotSolved
31.05.2007 13:23:49 Rasta
NotSolved

Ansicht des Beitrags:
Von:
Karl		 Datum:
31.05.2007 00:13:47		 Views:
2742		 Rating:
     
Antwort:
  Ja
Thema:
Begriffe in Zellen, Diagrammen und Buttons ändern
Hallo,

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


Sub Diagrammtitel_ändern()
Dim Diagramm As ChartObject
For Each Diagramm In ActiveSheet.ChartObjects
ActiveSheet.ChartObjects(Diagramm.Name).Activate
ActiveChart.PlotArea.Select
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Bla"
End With
Next

End Sub


Sub Button_Bezeichnung_Ändern()

ThisWorkbook.ActiveSheet.CommandButton1.Caption = "hallo"
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.



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 Begriffe in Zellen, Diagrammen und Buttons ändern
 31.05.2007 00:13:47 Karl
NotSolved
31.05.2007 13:23:49 Rasta
NotSolved