Portal | Forenübersicht | Neues Thema | Suchen | FAQ | Registrieren | Login
Forum > Excel & VBA > Fragen zu Excel/VBA > Hinweis nach erfolgloser Suche
Hier kannst Du Fragen speziell zu Deinem Problem stellen
In diesem Board befinden sich 1681 Themen.
Die Beiträge bleiben immer erhalten.
Es wird moderiert von P@ulchen, RO_SCH, .
Seite 1 Neues Thema letztes Thema nächstes Thema Dieses Board durchsuchen Diesen Thread zu meinen persönlichen Favoriten hinzufügen Abonnieren Ohne Zitat Antworten Druckt alle Antworten dieses Themas


 ist offline  Hinweis nach erfolgloser Suche Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
29.12.2017 - 14:24 Uhr
Posts



Hallo Zusammen,

ich komme mal wieder nicht weiter.
In meiner Arbeitsmappe lasse ich über vier Tabellenblätter nach einer bestimmten Nummer suchen. Die Nummer kommt nur ein einziges Mal vor.

Die Suche klappt wunderbar, bis auf das, dass nach erfolgloser Suche kein Hinweis ausgegeben wird.

Kann mir jemand von Euch helfen und sagen, wie ich das hinkriege? Ich krieg's einfach nicht hin.

Hier mein Code

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Private Sub CommandButton2_Click()
 
    Dim wks(1 To 4) As Worksheet
    Dim rng As Range
    Dim dInput As Double
    Dim iWks As Integer
    Dim sRng As String
    Dim i As String
    Set wks(1) = ThisWorkbook.Worksheets("Persona")
    Set wks(2) = ThisWorkbook.Worksheets("V-Daten")
    Set wks(3) = ThisWorkbook.Worksheets("Lager")
    Set wks(4) = ThisWorkbook.Worksheets("Abgang")
    i = Application.InputBox(prompt:="Bitte IT-Label eingeben:", Type:=1 + 2)
    For iWks = 1 To 4
    Set rng = wks(iWks).Cells.Find(i, LookAt:=xlWhole, LookIn:=xlValues)
    If Not rng Is Nothing Then
    sRng = rng.Address
    Sheets(iWks).Activate
    TextBox2.Text = rng.Offset(0, -2).Value  
    TextBox3.Text = rng.Offset(0, -1).Value  
    TextBox4.Text = rng.Offset(0, 0).Value                  
    TextBox5.Text = wks(iWks).Cells(rng.Row, 2).Value
    TextBox6.Text = wks(iWks).Cells(rng.Row, 3).Value  
    TextBox7.Text = wks(iWks).Cells(rng.Row, 7).Value  
    TextBox8.Text = wks(iWks).Cells(rng.Row, 8).Value  
    TextBox10.Text = wks(iWks).Cells(rng.Row, 5).Value
    TextBox11.Text = rng.Offset(0, 2).Value
         Do
    Set rng = wks(iWks).Cells.FindNext(rng)
    If rng.Address <> sRng Then
    TextBox2.Text = rng.Offset(0, -2).Value  
    TextBox3.Text = rng.Offset(0, -1).Value  
    TextBox4.Text = rng.Offset(0, 0).Value
    TextBox5.Text = wks(iWks).Cells(rng.Row, 2).Value  
    TextBox6.Text = wks(iWks).Cells(rng.Row, 3).Value  
    TextBox7.Text = wks(iWks).Cells(rng.Row, 7).Value  
    TextBox8.Text = wks(iWks).Cells(rng.Row, 8).Value  
    TextBox10.Text = wks(iWks).Cells(rng.Row, 5).Value
    TextBox11.Text = rng.Offset(0, 2).Value      
            Else
    Exit Do
            End If
         Loop
      End If
   Next iWks
 
End Sub
 


Vielen Dank schon mal für's helfen.

 ist offline  : Hinweis nach erfolgloser Suche Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
31.12.2017 - 17:10 Uhr
Posts



Hi,

1
2
3
4
5
         Loop
      Else
          MsgBox "Nix in Sheet " & WKS & " !!!"
      End If
   Next iWks


Gruß Roland

 ist offline  : Hinweis nach erfolgloser Suche Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
2.1.2018 - 10:34 Uhr
Posts



Hallo Roland,

klappt nicht ganz.

Bei "&" bringt er mir die Fehlermeldung, dass die Typen unverträglich sind. Lass ich das weg, zeigt er mir 4 x an, dass er nichts gefunden hat. Nach Möglichkeit sollte er dies erst nach dem letzten durchsuchten Sheet anzeigen.

Gibt's da noch eine Möglichkeit?

Gruß
Anderl


 ist offline  : Hinweis nach erfolgloser Suche Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
2.1.2018 - 20:49 Uhr
Posts



Hi,

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub CommandButton2_Click()
Dim wks(1 To 4) As Worksheet
Dim rng As Range
Dim dInput As Double
Dim iWks As Integer
Dim sRng As String
Dim i As String
Dim y As Boolean
 
Set wks(1) = ThisWorkbook.Worksheets("Persona")
Set wks(2) = ThisWorkbook.Worksheets("V-Daten")
Set wks(3) = ThisWorkbook.Worksheets("Lager")
Set wks(4) = ThisWorkbook.Worksheets("Abgang")
 
i = Application.InputBox(prompt:="Bitte IT-Label eingeben:", Type:=1 + 2)
For iWks = 1 To 4
    Set rng = wks(iWks).Cells.Find(i, LookAt:=xlWhole, LookIn:=xlValues)
    If Not rng Is Nothing Then
        firstAddress = c.Address
        Do
            sRng = rng.Address
            Sheets(iWks).Activate
            TextBox2.Text = rng.Offset(0, -2).Value
            TextBox3.Text = rng.Offset(0, -1).Value
            TextBox4.Text = rng.Offset(0, 0).Value
            TextBox5.Text = wks(iWks).Cells(rng.Row, 2).Value
            TextBox6.Text = wks(iWks).Cells(rng.Row, 3).Value
            TextBox7.Text = wks(iWks).Cells(rng.Row, 7).Value
            TextBox8.Text = wks(iWks).Cells(rng.Row, 8).Value
            TextBox10.Text = wks(iWks).Cells(rng.Row, 5).Value
            TextBox11.Text = rng.Offset(0, 2).Value
            Set rng = wks(iWks).Cells.FindNext(rng)
            y = True
        Loop While Not rng Is Nothing And c.Address <> firstAddress
    End If
Next iWks
If y = False Then MsgBox "Nix gefunden !!!"
End Sub

So besser ?

Gruß Roland

 ist offline  : Hinweis nach erfolgloser Suche Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
3.1.2018 - 7:48 Uhr
Posts



Guten Morgen Roland,

mit zwei kleinen Änderungen (Dim FirsteAddress und rng.Address) hat es super funktioniert.

Genau so, wie sich das meine Mitarbeiter wünschen.

Vielen herzlichen Dank.

Gruß
Anderl

Seite 1 nach oben

Forenauswahl:





Numaek's Forum V4.1.0 © 2005 by numaek
Originaltemplate by numaek