VBA If Else über mehrere Tabellenblätter

[skoppe]

Hallo.

Ich habe zwei Tabellenblätter:

- Januar2019
- Jahresübersicht

in der Jahresübersicht befindet sich ein Punktesystem in den Zeilen J3:J15.

Nun möchte ich gerne in VBA eine Wenn/Dann Funktion starten. VBA soll Januar 2019 nach Datum (B3:B33) durchsuchen und wenn er einen Wert aus der Tabelle Jahresübersicht J3:15 findet, dann soll er den daneben liegenden Wert (K3:15) auswerfen.

Könnt ihr mir das erklären?

[WillWissen]

Moin,

muss es unbedingt VBA sein? Ich könnte mir auch eine Formellösung vorstellen. Um mehr sagen zu können, solltest du eine Beispieltabelle (.xlsx - kein Bild!) hochladen. So geht's: https://www.clever-excel-forum.de/Thread...ng-stellen

Ich glaube, auch für eine VBA-Lösung wird eine Tabelle benötigt.

[Steffl]

Hallo,

mal ein Versuch ohne Datei

Code:

Sub prcSuchen()
  Dim rngTreffer As Range
  Dim lngC As Long
 
  With Worksheets("Januar 2019")
     For lngC = 3 To 33
        Set rngTreffer = Worksheets("Jahresübersicht").Range("J3:J15").Find(.Cells(lngC, 2).Value, LookIn:=xlFormulas, lookat:=xlWhole)
        If Not rngTreffer Is Nothing Then
           MsgBox Worksheets("Jahresübersicht").Cells(rngTreffer.Row, 11).Value
        End If
     Next lngC
  End With
End Sub

[snb]

PHP-Code:

=Vlookup( ; ;0) 


reicht schon aus.