Clever-Excel-Forum

Seiten: 1 2

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

@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.

......

Seiten: 1 2

Klaus-Dieter

Kazuyaa

rate mit