Thema Datum  Von Nutzer Rating
Antwort
10.11.2020 11:27:51 mike
NotSolved
Blau VBA Code in anderem Sheet ausführen
 10.11.2020 18:11:43 volti
Solved
11.11.2020 05:36:28 Gast37216
Solved

Ansicht des Beitrags:
Von:
volti		 Datum:
10.11.2020 18:11:43		 Views:
649		 Rating:
     
Antwort:
 Nein
Thema:
VBA Code in anderem Sheet ausführen
Hallo Mike,
 
die Angaben Range() ohne Elternbezeichnung wie z.B. Sheets("Blatt1").Range("A1") beziehen sich immer auf das aktive Blatt.
Wenn Du ein anderes Blatt durchsuchen möchtest, musst Du den Blattnamen auch mitangeben.
 
Oder Du packst das Ganze in eine WITH-Schleife und beziehst Dich mit einem führenden Punkt daruaf, wie im anliegenden Beispiel:
 
Sub Artikel_finden()
 Dim Suchbegriff As String, MsgTxt As String
    Suchbegriff = InputBox("Bitte Suchbegriff eingeben:")
    If StrPtr(Suchbegriff) = 0 Then Exit Sub

    With ActiveWorkbook.Worksheets("Tabelle1")
     For i = 1 To .Cells(Rows.Count, 2).End(xlUp).Row
        If LCase(.Range("B" & i)) Like "*" & LCase(Suchbegriff) & "*" Then 'hier wird in Spalte B gesucht
          MsgTxt = MsgTxt & Chr(13) & .Range("A" & i) & vbTab & .Range("B" & i) & vbTab & .Range("F" & i) 'Spalte A, B und F werden in MSG Box ausgegeben
        End If
     Next
    End With
        
    If MsgTxt = "" Then
       MsgBox "Kein Eintrag zu """ & Suchbegriff & """ gefunden.", vbExclamation, "Suchen"
    Else
       MsgBox Mid(MsgTxt, 2, 10000), vbInformation, "Suchen"
    End If

End Sub
 
viele Grüße
Karl-Heinz

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.11.2020 11:27:51 mike
NotSolved
Blau VBA Code in anderem Sheet ausführen
 10.11.2020 18:11:43 volti
Solved
11.11.2020 05:36:28 Gast37216
Solved