✔ OFFICE Makro: Zeichen ersetzen aus Spalte vorher

[PhoenixDH]

Hi,

ich habe folgendes Makro:

Public Sub Zeichenloeschung()
Dim i As Long
Dim Start As String
Dim Ende As String
Dim Temp As String
Dim erlaubt As String
Start = Time ' <- hier wird eine Zeitmessung eingeleitet
erlaubt = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-" ' <- hier werden die Zeichen definiert, die erlaubt sind;
' Groß-/Kleinschreibung wird ignoriert
Application.ScreenUpdating = False ' Bildschirm-Aktualisierung wird hier deaktiviert;
' Ansonsten dauert der Vorgang noch ein wenig länger, da er sonst jede Änderung sofort anzeigt

    For Each C In Selection
        With C
            Temp = ""
            For i = 1 To Len(.Text)
                If InStr(1, erlaubt, Mid(.Text, i, 1), vbTextCompare) > 0 Then
                    Temp = Temp & Mid(.Text, i, 1)
                End If
            Next i
            .Value = Temp
        End With
        Next C
Application.ScreenUpdating = True ' Jetzt wird die Anzeige wieder aktualisiert
Ende = Time ' <- hier wird die Zeitmessung gestoppt
MsgBox "Start: " & Start & vbCrLf & "Ende: " & Ende, vbInformation, "...fertig!" ' hier wird angezeigt, wie lange der ganze Vorgang gedauert hat
End Sub

D.h. ich markiere die Zellen die ich Cleanen will und führe das Makro aus.
Das Problem dabei ist, das er zum Cleanup die Werte der aktuellen Zelle nimmt, ich brauche aber die Werte aus einer Spalte vorher.

Wie kann ich das Script oben entsprechend anpassen?

Dank euch!


---------------------------------------------------------------------

Habs hinbekommen!