|
Excel-Version: 9.0 (Office 2000)
Wert suchen, wenn nicht gefunden ? von Rolf St vom 24.06.2002 - 17:29:45
Re: Wert suchen, wenn nicht gefunden ? von Günther Abel vom 24.06.2002 - 19:24:55
Re: Wert suchen, wenn nicht gefunden ? von Rolf St vom 24.06.2002 - 23:06:51
 |
Hallo! Ich würde mich freuen, wenn mir jemand dieses tolle Makro so umbauen könnte, das wenn es einen eingegebenen Wert in Tabelle Zeit (Splate C), in Tabelle Stammdaten nicht gibt, in Tabelle Zeit Spalte E bis I ein ? geschrieben wird. Option Explicit Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
If Target.Column <> 3 Then Exit Sub
With Application
var = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 2, 0)
If Not IsError(var) Then
Target.Offset(0, 2) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 2, 0)
Target.Offset(0, 3) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 3, 0)
Target.Offset(0, 4) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 4, 0)
Target.Offset(0, 5) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 5, 0)
Target.Offset(0, 6) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 6, 0)
Target.Offset(0, 7) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 7, 0)
Target.Offset(0, 8) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 8, 0)
Target.Offset(0, 9) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 9, 0)
End If
End With Vielen Dank für eure Hilfe! Tschüß
Rolf
|
Hi Rolf, Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
If Target.Column <> 3 Then Exit Sub
With Application
var = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 2, 0)
If Not IsError(var) Then
Target.Offset(0, 2) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 2, 0)
Target.Offset(0, 3) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 3, 0)
Target.Offset(0, 4) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 4, 0)
Target.Offset(0, 5) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 5, 0)
Target.Offset(0, 6) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 6, 0)
Target.Offset(0, 7) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 7, 0)
Target.Offset(0, 8) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 8, 0)
Target.Offset(0, 9) = .VLookup(Target.Value, Worksheets("Stammdaten").Columns("A:I"), 9, 0)
Else
Target.Offset(0, 2) = "?"
Target.Offset(0, 3) = "?"
Target.Offset(0, 4) = "?"
Target.Offset(0, 5) = "?"
Target.Offset(0, 6) = "?"
End If
End With
End Sub Viel Spass
Günther
Hallo Günther! Vielen Dank! Tschüß
Rolf |
Das Archiv des Excel-Forums