Kategorien mehrerer Gerichte ausgeben

[Klaus-Dieter]

Hallo,

habe den Quelltext noch etwas optimiert:

Code:

Option Explicit

Sub uebertrag()
    Dim intZeile As Integer
    Dim c As Range
    Dim firstAddress As String
    For intZeile = 2 To Range("L2").End(xlDown).Row
        With Tabelle1.Range("A3:H10")
            Set c = .Find(Tabelle1.Cells(intZeile, 12).Text, LookIn:=xlValues)
            If Not c Is Nothing Then
                firstAddress = c.Address
                Tabelle1.Cells(intZeile, 11) = Tabelle1.Cells(2, c.Column).Text
            End If
        End With
    Next intZeile
End Sub

[Kazuyaa]

@Klaus-Dieter

Falsch ausgedrückt, es hilft mir schon weiter. Es tut genau das was es soll. Nur ist mir eine "Formel" lieber, da ich diese anpassen kann. Mit VBA kenne ich mich kein Stück aus. Ich wäre nicht in der Lage, die kleinste Änderung einzufügen. Sei es die Spalte, Zeile oder Sonstiges zu verändern.

[rate mit]

......