Wahr/Falsch auf True/False ändern
30.01.2007 21:06:14
Jörg
mein Excel setzt meine Daten auf Deutsch statt auf Englisch ein, schreibt also Wahr und Falsch statt True und False. Ich habe mit dem Makrorecorder versucht, die Umänderung automatisch laufen zu lassen. Von Hand funktioniert das auch, als laufende Funktion leider nicht.
Leider weiss ich nicht, woran das liegt. Kann mir jemand dabei helfen? Bitte.
Vielen Dank und einen schönen Feierabend.
Grüße an alle Jörg
Sub WAHRFALSCH_auf_TrueFalse_umändern()
Application.ScreenUpdating = False
Worksheets("Daten").Visible = True
Worksheets("Daten").Select
Range("I3:BE10000").Select
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll ToRight:=3
ActiveWindow.ScrollColumn = 51
ActiveWindow.ScrollRow = 3
Range("I3:BE10000,BG3:BH10000").Select
Range("BG3").Activate
Selection.Replace What:="WAHR", Replacement:="True", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="FALSCH", Replacement:="False", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A3").Select
Worksheets("Start").Visible = True
Worksheets("Daten").Visible = False
Application.ScreenUpdating = True
End Sub