Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Wert suchen in Tabelle

Betrifft: Wert suchen in Tabelle von: Volker
Geschrieben am: 13.11.2014 10:07:22

Guten Morgen zusammen,
ich suche mittels nachstehendem Code in Spalte A einen Wert (Datum).
Funktioniert auch soweit, allerdings nur bis zum 9.Tag. Wenn ich den 10. Tag suche bewegt sich nichts mehr. Ich verstehe das nicht.
Könnte mir jemand auf die Sprünge helfen?

Danke und Gruß
Volker

Private Sub CommandButton1_Click()
Dim rZelle  As Range
      If Me.TextBox1.Value <> "" Then
       If IsDate(Me.TextBox1.Value) Then
          With Worksheets("November").Range("A1:A35")
             Set rZelle = .Find(CDate(Me.TextBox1.Value), LookIn:=xlValues, LookAt:=xlWhole)
             If Not rZelle Is Nothing Then
                .Range("A" & rZelle.Row).Select
             End If
          End With
       End If
    End If
End Sub

  

Betrifft: AW: Wert suchen in Tabelle von: {Boris}
Geschrieben am: 13.11.2014 10:10:30

Hi Volker,

schwer zu sagen woran das liegt. Zeig mal Deine Datei.

VG, Boris


  

Betrifft: AW: Wert suchen in Tabelle von: Volker
Geschrieben am: 13.11.2014 10:22:12

Hier meine Datei
https://www.herber.de/bbs/user/93734.xlsm
Danke für die Mühe
Gruß
Volker


  

Betrifft: Kann ich nicht bestätigen... von: {Boris}
Geschrieben am: 13.11.2014 10:31:43

Hi Volker,

bei mir (ebenfalls xl2007) findet er JEDEN Tag.
Sehr wohl bleibt der Code bei der Zeile

ActiveCell.Offset(0, 1) = Format(CDate(TextBox2.Value), "hh:mm;@ ")

hängen - aber das war ja nicht Dein Problem...?!

VG, Boris


  

Betrifft: AW: Wert suchen in Tabelle von: Mullit
Geschrieben am: 13.11.2014 10:39:39

Hallo,

bei Datumseinträgen immer so formulieren:

Private Sub CommandButton6_Click()
Dim rZelle  As Range
      If Me.TextBox1.Value <> "" Then
       If IsDate(Me.TextBox1.Value) Then
          With Worksheets("November").Range("A1:A50")
             Set rZelle = .Find(CDate(Me.TextBox1.Value), LookIn:=xlFormulas, LookAt:=xlWhole)
             If Not rZelle Is Nothing Then
                .Range("A" & rZelle.Row).Select
             End If
          End With
       End If
    End If
End Sub

Gruß,


  

Betrifft: AW: Wert suchen in Tabelle von: Volker
Geschrieben am: 13.11.2014 10:46:16

Hallo,
jetzt funktioniert es eigenartigerweise.
Ich benutze den Code in dieser Form in diversen Tabellen und hatte nie Probleme diesiger Art.
Danke und Gruß
Volker


 

Beiträge aus den Excel-Beispielen zum Thema "Wert suchen in Tabelle"