Thema Datum  Von Nutzer Rating
Antwort
10.01.2016 09:43:44 Rafael
NotSolved
Blau VBA Noob kommt nicht weiter
 10.01.2016 20:01:28 Gast77981
NotSolved
10.01.2016 20:35:24 Gast16068
NotSolved
11.01.2016 15:41:29 Rafael
NotSolved
11.01.2016 16:06:45 Gast54295
NotSolved
11.01.2016 16:20:58 Rafael
NotSolved
11.01.2016 16:24:34 Gast79487
NotSolved
12.01.2016 08:45:45 Rafael
NotSolved

Ansicht des Beitrags:
Von:
Gast77981		 Datum:
10.01.2016 20:01:28		 Views:
780		 Rating:
     
Antwort:
  Ja
Thema:
VBA Noob kommt nicht weiter

Hallo! Also ich weiß nicht genau, wohin der Wert geschrieben werden soll, deshalb wird er ausgegeben. Eine Prüfung, falls der Wert nicht da ist, erfolgt nicht. Der Code geht alle Zellen in C und D durch und sucht den Wert in den 3 Spalten. Wo der Wert steht, wird die Überschrift ausgegeben. Gruß

 


Sub suchen()
Dim suche
Dim i As Long

For Each Name In Range("C2:D12").Cells
    For i = 1 To 3
        suche = Application.WorksheetFunction.Count(ActiveSheet.Columns(5 + i), Name.Value)
        If suche > 0 Then MsgBox ActiveSheet.Cells(1, 5 + i)
    Next i
Next

End Sub

 

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.01.2016 09:43:44 Rafael
NotSolved
Blau VBA Noob kommt nicht weiter
 10.01.2016 20:01:28 Gast77981
NotSolved
10.01.2016 20:35:24 Gast16068
NotSolved
11.01.2016 15:41:29 Rafael
NotSolved
11.01.2016 16:06:45 Gast54295
NotSolved
11.01.2016 16:20:58 Rafael
NotSolved
11.01.2016 16:24:34 Gast79487
NotSolved
12.01.2016 08:45:45 Rafael
NotSolved