Office: variablen vergleichen

Moin, ich hab ein Problem mit dem vergleichen & ersetzen bestimmter werte von 2 Tabellen.

ich habe bisher das im Makro:

Code:

Sub Search()
Dim strTempTC_Status                    As String
Dim strTempTC_Master                    As String
Dim I                                   As Integer
Dim K                                   As Integer

    Sheets("TC_Status").Select
    
    For I = 1 To 6
        Cells(I, 5).Select
        If ActiveCell.Value = "Transform" Or ActiveCell.Value = "Load" Then
            Cells(I, 2).Select
            strTempTC_Status = Trim(ActiveCell.Value)
            Cells(I, 3).Select
            strTempTC_Status = strTempTC_Status & Trim(ActiveCell.Value)
            Cells(I, 4).Select
            strTempTC_Status = strTempTC_Status & Trim(ActiveCell.Value)
            
            
            
            Debug.Print strTempTC_Status
  
        End If
        
    Next
        
        
        Sheets("TC_Master_Plan").Select
    
    For K = 1 To 6
        Cells(K, 4).Select
        If ActiveCell.Value = "Transform" Or ActiveCell.Value = "Load" Then
            Cells(K, 1).Select
            strTempTC_Master = Trim(ActiveCell.Value)
            Cells(K, 2).Select
            strTempTC_Master = strTempTC_Master & Trim(ActiveCell.Value)
            Cells(K, 3).Select
            strTempTC_Master = strTempTC_Master & Trim(ActiveCell.Value)

        
        Debug.Print strTempTC_Master
              
        End If
        
    Next
    
Exit Sub
End Sub

und das funktioniert soweit auch,
jetzt muss ich aber die erste Zeile von tc_status mit allen zeilen von tc_master vergleichen, dort wo tc_status=tc_master ist soll der wert aus dem aktuellen I von tc_status Zelle 6 in das gefundene I bei TC_master in Zelle 7 Kopiert werden (als wert)

meine fragen sind jetzt
1. geht das überhaupt?
2. wie geht das? zeilen vergleichen geht ja mit Find, wie macht man das bei variablen?
3. sollte ich vielleicht tc_status & Tc_master doch lieber in ein array schreiben? macht das mehr sinn?

hoffe es kann mir einer Helfen.

PS:
möglichst wenig rechenaufwand, da beide tabellen über 2000 Zeilen haben und unsere rechner hier nicht die schnellsten sind.

 

Hallo!

Aus Geschwindigkeitsgründen solltest du erstmal die ganzen "Select" rausschmeißen:

Code:

    For K = 1 To 6
        If Cells(K, 4).Value = "Transform" Or Cells(K, 4).Value = "Load" Then
            strTempTC_Master = Trim(Cells(K, 1) & Cells(K, 2) & Cells(K, 3))
            Debug.Print strTempTC_Master
        End If
    Next

Die Methode Find kannst du auch mit Variablen nutzen:
So findest du z.B. die Zeile:
Columns(x).Find(strTempTC_Master).Row

 

funktioniert nicht,

in strTempTC_Status mache ich doch aus 3 spalten einen String aus diesem String lösche ich die leerzeichen mit trim, sodass aus
a b c d
abcd wird.

im sheet TC_mater_plan
steht aber immer noch
a b c d
und ich suche nach
abcd. in der spalte a, wenn gefunden dann zeige die ganze Reihe

oder seh ich das falsch?

jedenfalls bekomm ich nen fehler wenn ich das so laufen lasse, undzwar:

Code:

Runtime error '91':
Object variable or With Block variable not set

 

Dann setze die Trim's vor alle:

Code:

strTempTC_Master = Trim(Cells(K, 1)) & Trim(Cells(K, 2)) & Trim(Cells(K, 3))

 

problem gelöst, schleife war falsch gesetzt -.-

aber danke für die hilfe :)