Vlookup anpassung
01.11.2008 17:44:09
Karel
versuchen vergeblich diesese Makro anzupassen, habe ich leztze Woche von Reinhardt erhalten und Funktioniert auch einwandfrei, aber wass muss ich machen wenn Suchwert nicht im Spalte D aber in Spalte E steht. Klick X bleibt im Spalte C
Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range) Dim var As Variant If Target.Column 3 And Target.Column 9 Then Exit Sub If Target.Count 1 Then Exit Sub Application.EnableEvents = False With Application.WorksheetFunction If UCase(Target.Value) = "X" Then If .CountIf(Worksheets("Training").Columns(2), Target.Offset(0, 1).Value) > 0 Then Target.Offset(0, 3) = .VLookup(Target.Offset(0, 1).Value, _ Worksheets("Training").Columns("B:C"), 2, 0) Target.Offset(0, 4) = Worksheets("Training").Range("E1") End If Else Target.Offset(0, 3) = "" Target.Offset(0, 4) = "" End If End With Application.EnableEvents = True End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column 3 And Target.Column 9 Then Exit Sub
If Target.Count 1 Then Exit Sub
If Target.Row = 1 Or Target.Row > 500 Then Exit Sub
Target.Value = IIf(Target.Value = "X", "", "X")
Cells(ActiveCell.Row + 1, ActiveCell.Column + 1).Activate
End Sub
Variante 2
A | B | C | D | E | F | G | H | I | J | K | L | M | |
1 | Datum | Tag | X | Nr. | Nr. | Programm | Datum | X | Nr. | Nr. | Programm | Datum | |
2 | 01.01. | Mo | X | TD | TD | Tempodauerlauf | 25.10.2008 | TD | |||||
3 | Neujahr | X | RD | RD | Ruhiger Dauerlauf | 25.10.2008 | X | RD | 39746 | ||||
4 | 02.01. | Di | X | MD | MD | Mittlerer Dauerlauf | 25.10.2008 | X | MD | Mittlerer Dauerlauf | 25.10.2008 | ||
5 | X | FD | FD | FD | |||||||||
6 | 03.01. | Mi | X | LD | LD | Langer Dauerlauf | 25.10.2008 | X | LD | Langer Dauerlauf | 25.10.2008 | ||
7 | 6 | 6 | FS | ||||||||||
8 | 04.01. | Do | X | IT | IT | Intensiver Tempolauf | 25.10.2008 | IT | |||||
9 | X | ET | ET | X | ET | Mittlerer Dauerlauf | 25.10.2008 | ||||||
10 | 05.01. | Fr | X | T62 | T62 | X | T62 | 6x2000 | 25.10.2008 | ||||
11 | X | T62 | T62 | 6x2000 | 25.10.2008 | T62 |
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Grusse
Kare