vba input abfrage

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Autofilter?

13.11.2015 21:48:50

Sepp

AW: Autofilter?

13.11.2015 21:54:30

Dieter

AW: Autofilter?

13.11.2015 22:16:10

Sepp

AW: Autofilter?

13.11.2015 22:34:35

Sepp

AW: Autofilter?

14.11.2015 07:35:27

Dieter

AW: Autofilter?

14.11.2015 07:55:07

Sepp

' ********************************************************************** ' Modul: Tabelle2 Typ: Element der Mappe(Sheet, Workbook, ...) ' ********************************************************************** Option Explicit Private Sub CommandButton1_Click() Dim lngNumber As Long If CommandButton1.Caption = "Alle anzeigen" Then Me.ShowAllData Me.AutoFilterMode = False CommandButton1.Caption = "Kundennummer suchen" Else lngNumber = Application.InputBox("Nach welcher Kundennummer wollen sie suchen?", "Kundennummer", Type:=1) If Not lngNumber = False Then If IsNumeric(Application.Match(lngNumber, Me.Columns(1), 0)) Then Me.Range("A1").CurrentRegion.AutoFilter Field:=1, _ Criteria1:=lngNumber, Operator:=xlAnd, VisibleDropDown:=False CommandButton1.Caption = "Alle anzeigen" Else If MsgBox("Bitte Kundennummer prüfen!" & vbLf & vbLf & "Neuer Versuch?", _ 52, "Kundennummer") = 6 Then CommandButton1 = True End If End If End If End Sub

Hallo Dieter,
"der Code wird gelb" ist eine interessante Fehlerbeschreibung.
Nimm diesen Code und weise in der Schaltfläche zu.

' **********************************************************************
' Modul: Tabelle1  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Sub Kundennummer()
Dim objShp As Shape
Dim lngNumber As Long

Set objShp = Me.Shapes(Application.Caller)

If objShp.TextFrame.Characters.Text = "Alle anzeigen" Then
  Me.ShowAllData
  Me.AutoFilterMode = False
  objShp.TextFrame.Characters.Text = "Kundennummer suchen"
Else
  lngNumber = Application.InputBox("Nach welcher Kundennummer wollen sie suchen?", "Kundennummer", Type:=1)
  
  If Not lngNumber = False Then
    If IsNumeric(Application.Match(lngNumber, Me.Columns(1), 0)) Then
      Me.Range("A1").CurrentRegion.AutoFilter Field:=1, _
        Criteria1:=lngNumber, Operator:=xlAnd, VisibleDropDown:=False
      objShp.TextFrame.Characters.Text = "Alle anzeigen"
    Else
      If MsgBox("Bitte Kundennummer prüfen!" & vbLf & vbLf & "Neuer Versuch?", _
        52, "Kundennummer") = 6 Then Call Kundennummer
    End If
  End If
End If

Set objShp = Nothing
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

vba input abfrage

6 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)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread