in einer XLS habe ich pro Monat ein eigenes Tabellenblatt. In einem weiteren Tabellenblatt (Übersichtstabellenblatt) werden die Daten aus den einzelnen Tabellenblättern zusammengetragen. Ich möchte ein Makro schreiben, dass je nachdem welcher Monat im Dropdown Menü (im Übersichtstabellenblatt) ausgewählt ist, auf eben dieses Tabellenblatt springt. (Diesen Code möchte ich den den unten angehängten Code einhängen, falls das möglich ist.)
In den Monatstabellenblättern habe ich eine Kopie von Zahlen aus HTML Format eingefügt. Diese enthalten Unicode Text, der aufgrund der Leerzeichen vor und hinter den "Zahlen" in XLS Format üerführt werden muss. Hierfür habe ich bereits erfolgreich den folgenden VBA Code erstellt.
Sub Leerzeichen()
Dim r As Range
Dim Quellblatt As Worksheet
On Error Resume Next
Set r = Application.InputBox(prompt:="A1:Z1000", Type:=8)
Set Quellblatt = ThisWorkbook.Sheets("9")
On Error GoTo 0
If Not r Is Nothing Then
r.Replace Chr(32), "", xlPart
r.Replace Chr(160), "", xlPart
End If
End Sub
Vielen Dank für eure Hilfe.
Gruß Anke