|
Hallo,
vielleicht hilft diese Lösung weiter?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iCol As Integer
If Target.Column = 2 And Target.Worksheet.Cells(Target.Row, 1).Value <> "" And Target.Worksheet.Cells(Target.Row, 2).Value <> "" Then
Application.EnableEvents = False
For iCol = 3 To Target.Worksheet.UsedRange.Columns.Count
Target.Worksheet.Cells(Target.Row, iCol) = CalcDiff(Target.Worksheet.Cells(Target.Row, 2), Target.Worksheet.Cells(1, iCol))
Next
Application.EnableEvents = True
End If
End Sub
' Hier einsetzen die vorhandene Funktionen zur Entfernungsmessung zwidschen zwei PLZ
Function CalcDiff(plz1 As String, plz2 As String) As Double
CalcDiff = Abs(Val(plz1) - Val(plz2))
End Function
Der VBA-Code muss einer Tabelle zugewiesen werden.
Die Funktion CalcDiff ist nur ein Platzhalter für die bereits vorhandene Entfernungsmessungs-Funktion.
Eine Beispieldatei kann hier heruntergeladen werden: https://www.dropbox.com/s/hbj78jdpjoppzoj/Entfernungsmessung%202%20PLZ.xlsm?dl=0
In der Beispieldatei werden in Tabelle 1 die Entfernungsdaten automatisch eingetragen, sobald in der Spalte 2 ein Wert geändert wird.
LG, BigBen
|