Makro-Erweiterung
28.09.2013 14:48:48
Burghard
ich würde gerne das untere Makro (funktioniert) erweitern.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varRow, rngBereich As Range
Set rngBereich = Intersect(Range("C2:C200"), Target)
If rngBereich Is Nothing Then Exit Sub
Application.EnableEvents = False
With Range("G2:G30")
For Each rngBereich In rngBereich.Cells
varRow = Application.Match(rngBereich.Value, .Columns(2), 0)
If IsNumeric(varRow) Then
rngBereich.Value = .Columns(1).Cells(varRow, 1).Value
Else
rngBereich.Value = Empty
End If
Next rngBereich
End With
Application.EnableEvents = True
End Sub
Die Erweiterung soll können: Wenn ich in Spalte C eine Zahl eintrage, dann soll
a) die bisherige Umwandlung weiterhin bestehen plus
b) in der Spalte D der Nachbarwert von Spalte C, bzw. der Nachbarwert von G2 bis G30 (hier J2 bis J30) eingetragen werden
c) in der Spalte F (neben der Zelle von Spalte C) bzw. der Nachbarwert von G2 bis G30 (hier I2 bis I30) eingetragen werden
In etwa so:
...
rngBereich.Value = .Columns(1).Cells(varRow, 1).Value
rngBereich.Offset(0, 1) = .Columns(4).Cells(varRow, 4).Value
rngBereich.Offset(0, 3) = .Columns(3).Cells(varRow, 3).Value
...
Diese VBA-Formulierungen sind aber so falsch.
Schönen Gruß
Burghard