Makro auf zwei Tabellenblättern
07.12.2015 08:48:34
Jessi
Ich habe mal eine Frage, die denk ich nicht einmal so schwer zu lösen ist, aber ich hab in Google einfach nichts passendes dazu gefunden.
Ich habe folgendes Makro:
Sub ZahlenUmwandelnLeerzeichenLöschen()
Sheets("Kontennachweis zur Bilanz").Activate
With Range("A9:A550")
.NumberFormat = "General" 'Text wird in Zahl umgewandelt
.Value = .Value
End With
Range("A9:A550").Select 'Leerzeichen bei Kontonummern werden gelöscht
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
Sheets("Grundeinstellungen").Activate
End Sub
Im Moment greift dieses Makro ja nur auf das Tabellenblatt "Kontennachweis zur Bilanz" und wählt am Schluss die "Grundeinstellungen" aus.
Das Makro soll jetzt allerdings nicht nur dem Tabellenblatt "Kontennachweis zur Bilanz" sondern auch auf dem "Kontennachweis zur GuV" ausgeführt werden
Schon mal vielen Dank!
Gruß
Jessi