Code bereinigen
23.10.2014 08:52:58
Ralph
bin leider noch nicht so firm in VBA. Das Folgende ist mit dem Rekorder aufgenommen und soll in bestimmten Spalten ein # durch ein = ersetzen. Dann entstehen Datenimport-Formeln, die wenn sie immer aktiv wären, das System zu sehr belasten würden.
Lassen sich die zusammenfassen, dass ich den Ersetzen-Befehl vielleicht nur einmal benötige ? Und in dem aufgezeichneten Befehl stecken ja so viele Parameter. Müssen die alle aufgeführt werden ?
Sheets("DATEN").Select
Sheets("HANDEL").Range("AI16") = 1
Range("X8:AB540").Select
Selection.ClearContents
Columns("BE:BE").Select
Selection.Replace What:="#", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("BG:BG").Select
Selection.Replace What:="#", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("BX:BX").Select
Selection.Replace What:="#", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("BZ:BZ").Select
Selection.Replace What:="#", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Mit Dank im Voraus.
Gruß
Ralph