Sub suchen-ersetzen
Alex
... eine Frage.
Ich habe eine dynamische Tabelle mit Datumswerten in Spalte 1 und möchte in Spalte 2 die Kalenderwoche angezeigt bekommen.
Mit dem Makrorekorder habe ich den Vorgang aufgezeichnet und hierbei hat es funktioniert.
Möchte ich aber das Makro ausführen, markiert er mir nur die Spalte ohne zu ersetzen.
Folgendes Makro macht mich noch fertig.
Sub Makro4()
Sheets("XYZ").Select
Range("H2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:="*", Replacement:= _
"=""KW "" & KÜRZEN((G2-WOCHENTAG(G2;2)+11-(""1/""&JAHR(G2+4-WOCHENTAG(G2;2))))/7)&""-""& _
JAHR(G2)" _
, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
In der Spalte "2" sind werte enthalten die ich durch die KW ersetzen möchte und habe schon einiges versucht... ohne Erfolg.Die Spalte 2 mit verschiedenen Formartierungen für Text, Standard usw.... formatiert vorher den Bereich gelöscht... etc.
Kann mir einer sagen WISO der Inhalt nicht ersetzt wird?