Clever-Excel-Forum

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?

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.

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

PHP-Code:
=Vlookup( ; ;0) 

reicht schon aus.

skoppe

WillWissen

Steffl

snb