Hallo Community .-)
Ein Beispiel für Automatismus!
Gruss Nighty
Tabelle1
A1=Eingabe eines kürzel
Tabelle2 ab Zeile 2
Spalte A=Kürzel
Spalte B=Zu ersetzender Text
In dieser Zeile sind die betroffenen Zellen angegeben die ausgefüllt werden!
[code] Rbereich = Array("A1", "B1", "D1")[/code]
Einzufügen
Alt+F11/Projectexplorer/Tabelle1
[code]Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim Suche As Range, Zelle As Integer
Dim Rbereich As Variant
If Target.Address = "$A$1" Then
Set Suche = Worksheets(2).Range("A2:A" & Worksheets(2).Range("A" & Rows.Count).End(xlUp).Row).Find(Cells(Target.Row, Target.Column))
If Not Suche Is Nothing Then
Rbereich = Array("A1", "B1", "D1")
For Zelle = 0 To UBound(Rbereich)
Range(Rbereich(Zelle)) = Worksheets(2).Cells(Suche.Row, 2)
Next Zelle
End If
End If
Application.EnableEvents = True
End Sub[/code]