Index-Vergleich mit Makro

Sub Zellenwertfind() Dim varM As Variant, lngZe As Long, lngSp As Long With Tabelle1 'Zeile ausfindig machen varM = Application.Match("Wert8", .Columns(1), 0) If IsError(varM) Then MsgBox "'Wert8' nicht in Spalte A gefunden" Exit Sub Else lngZe = CLng(varM) End If 'Spalte ausfindig machen varM = Application.Match("Test", .Rows(1), 0) '

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW 1. Frage

26.05.2013 12:28:49

hary

Frage 2 noch offen

26.05.2013 12:46:54

Andre´

AW: Frage 2 noch offen

26.05.2013 14:41:01

Tino

Alle Fragen erl.

26.05.2013 15:14:36

Andre´

Hallo,
kannst mal diesen Code testen.
Code ist in Modul2
https://www.herber.de/bbs/user/85531.xlsm

Sub FindDaten()
Dim ArTab1, ArTab2, ArRow1, ArCol1, varCol, varRow, varSuch
Dim nR&, nC&

With Tabelle1
    nR = .Cells(.Rows.Count, 1).End(xlUp).Row 'letzte Zeile 
    nC = .Cells(1, .Columns.Count).End(xlToLeft).Column 'letzte Spalte 
    If nR < 2 Or nC < 2 Then Exit Sub 'keine Daten 
    ArTab1 = .Range("B2", .Cells(nR, nC)) 'Matrix 
    ArCol1 = .Range("A1", .Cells(nR, 1)) 'Spalte 1 = A 
    ArRow1 = Application.Transpose(.Range("A1", .Cells(1, nC))) 'Zeile 1 
End With

With Tabelle2
    nR = .Cells(.Rows.Count, 1).End(xlUp).Row 'letzte Zeile 
    nC = .Cells(1, .Columns.Count).End(xlToLeft).Column 'letzte Spalte 
    If nR < 2 Or nC < 2 Then Exit Sub 'keine Daten 
    
    ArTab2 = .Range("A1", .Cells(nR, nC)) 'Matrix Tab2 mit Zeile/Spalte 1 
    
    With Application
        For nR = 2 To Ubound(ArTab2)
            For nC = 2 To Ubound(ArTab2, 2)
                ArTab2(nR, nC) = 0 '0 wenn nichts gefunden 
                varSuch = ArTab2(nR, 1) 'Suchwert Zeile 
                If IsNumeric(varSuch) Then varSuch = CLng(varSuch)
                varRow = .Match(varSuch, ArCol1, 0) 'Zeile Suchen 
                If IsNumeric(varRow) Then 'gefunden 
                    varSuch = ArTab2(1, nC) 'Suchwert Spalte 
                    If IsDate(varSuch) Then varSuch = CLng(varSuch)
                    varCol = .Match(varSuch, ArRow1, 0) 'Spalte suchen 
                    If IsNumeric(varCol) Then 'gefunden 
                        ArTab2(nR, nC) = ArTab1(varRow - 1, varCol - 1) 'Wert in ArTab2 
                    End If
                End If
            Next nC
        Next nR
    End With
    'Daten in Tab2 zurückschreiben 
    .Range("A1").Resize(Ubound(ArTab2), Ubound(ArTab2, 2)).Value = ArTab2
End With


End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread