Suchen horizontal zum zweiten

Hallo zusammen,
nachdem ich gestern einen ersten Anlauf gewagt hatte, aber keine Beispieldatei hochladen konnte jetzt nochmal der Versuch. https://www.herber.de/bbs/user/52540.xls
Rudi und Chris hatten mir freundlicherweise Lösungsansätze aufgezeigt, aber ich hatte meinen
Wunsch nicht ausreichend beschrieben, so das es zu einem Missverständnis kam. Jetzt nochmal
Ich versuche in einer Tabelle eine bestimmte Zelle zu finden.
Zuerst gehe ich unter zuhilfenahme eines Kalendersteuerelementes in Spalte A zu dem entsprechenden Datum.
Bis hierhin funktioniert es auch. In den Spalten C bis Z stehen (in Zeile 2 )verschiedene Werte welche sich auch in einer Userform-Combobox befinden.
Gehen wir davon aus, das heute der 13.01.2008 ist und der Wert in der Combobox ist 5 so soll
die Zelle G 15 selectiert werden.
Hat jemand eine Idee?
Danke und Gruß
Volker

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() On Error Resume Next Dim rZelle As Range If Me.TextBox1.Value = "" Then MsgBox "Datum auswählen" End If If Me.TextBox1.Value "" Then If IsDate(Me.TextBox1.Value) Then With Worksheets("Tabelle1").Range("B1:B380") Set rZelle = .Find(CDate(Me.TextBox1.Value), LookIn:=xlValues, Lookat:=xlWhole) If Not rZelle Is Nothing Then .Range("A" & rZelle.Row).Offset(, ComboBox1.Value).Select On Error GoTo 0 End If End With End If End If End Sub

Hallo Volker,
du hastest in deinem Muster Zahlen von 1 bis 9 in Zeile 2 sthen. Der ausgewählte Wert wird dann benutzt, die zu selektierende Zelle zu berechnen.
Jetzt gibst du Text ein und damit kann Excel schlecht rechnen. Am besten verwendest du zum Suchen des Namens in der Zeile 2 auch die Find-Methode.
Mein Excel97 hat irgendwie Probleme Datum-Zellen mit der Find-Methode zu finden. Ich hab es deshalb mit einer etwas langsameren Schleife gelöst.
Gruß
Franz


Private Sub CommandButton1_Click()
Dim lngZeile As Long, rZelle  As Range
If Me.TextBox1.Value = "" Then
MsgBox "Datum auswählen"
Else
If Me.TextBox1.Value  "" Then
If IsDate(Me.TextBox1.Value) Then
lngZeile = 1
'Zeile mit Datum in Spalte B Suchen
Do Until CDate(Me.TextBox1.Value) = Cells(lngZeile, 2).Value
lngZeile = lngZeile + 1
If lngZeile > Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row Then
MsgBox "Datum nicht gefunden!"
Exit Sub
End If
Loop
'Name in Zeile 2 suchen
If Me.ComboBox1.Value = "" Then
MsgBox "Name auswählen!"
Else
Set rZelle = Rows(2).Find(Me.ComboBox1.Value, _
LookIn:=xlValues, Lookat:=xlWhole)
If Not rZelle Is Nothing Then
Cells(lngZeile, rZelle.Column).Select
Else
MsgBox "Name nicht gefunden!"
End If
End If
Else
MsgBox "In Texbox steht kein Datum!"
End If
End If
End If
End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suchen horizontal zum zweiten

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread