@ Sepp: Anpassung Korrektur-Makro
Claudia
Du hattest mit netterweise folgendes Makros geschrieben.
Sub correction()
Dim rngCorrection As Range, rng As Range
With Sheets("Korrektur")
Set rngCorrection = Sheets(.Range("C1").Text).Range(.Range("D1").Text)
For Each rng In .Range("A2:A" & Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row))
If rng "" Then
rng.Offset(0, 2) = Application.CountIf(rngCorrection, "*" & rng & "*")
rngCorrection.Replace What:=rng, Replacement:=rng.Offset(0, 1), LookAt:=xlPart, _
MatchCase:=False
End If
Next
End With
End Sub
Nun habe ich erneut das Problem einer Korrektur. Leider bekomme ich dieses Makro aber nicht auf das Problem angepasst. Könntest Du mir noch einmal helfen.FOlgendes Problem:
zu prüfender Bereich
Reiter Daten (A5:A17)
Würde ich wieder im Reiter Korrektur (C1 + D1) eingeben.
Nun sollen aber aus den zu prüfenden Zellen immer jeweils nur die ersten 5 Stellen geprüft und bei Bedarf korrigiert werden. Die Ausgabe der Korrektur soll dieses Mal aber nicht in der gleichen Zelle passieren, sondern in der Zelle rechts daneben.
Also bei A5 wäre es dann B5.
Kannst Du mir helfen?
Liebe Grüße
Claudia