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

Ansicht des Beitrags:
Von:
mike		 Datum:
10.11.2020 11:27:51		 Views:
1290		 Rating:
     
Antwort:
  Ja
Thema:
VBA Code in anderem Sheet ausführen

hallo

ich habe ein sheet mit Name "Artikel"

Nun möchte ich in einem anderen Sheet per VBA einen Artikel suchen und die Daten per Message Box ausgeben

Folgenden Code habe ich bereits, dieser funktioniert aber nur im sheet selbst

Sub Artikel_finden()

    n = ActiveCell.SpecialCells(xlLastCell).Row
    suchbegriff = InputBox("Bitte Suchbegriff eingeben:")
    m = ""
For i = 1 To n
        If LCase(Range("B" & i)) Like "*" & LCase(suchbegriff) & "*" Then 'hier wird in Spalte B gesucht
         m = m & 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
        If m = "" Then
        MsgBox "Kein Eintrag zu """ & suchbegriff & """ gefunden."
        Else
        MsgBox Mid(m, 2, 10000)
 End If

End Sub

Danke für eure Hilfe

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
Rot VBA Code in anderem Sheet ausführen
 10.11.2020 11:27:51 mike
NotSolved
10.11.2020 18:11:43 volti
Solved
11.11.2020 05:36:28 Gast37216
Solved