Home Office-Hilfe.com - Wir lösen Ihr Problem mit Microsoft Excel, Word, Outlook, PowerPoint, Access gratis Forum Impressum

 [Excel 2000] variablen vergleichen
Neues Thema eröffnenNeue Antwort erstellen
Autor Nachricht
Madde
Newbie
Newbie


Anmeldedatum: 12.09.2007
Beiträge: 38

BeitragVerfasst am: 22.11.2007, 14:27 Nach oben

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.
Benutzer-Profile anzeigenPrivate Nachricht senden
schatzi
Moderator
Moderator


Anmeldedatum: 09.12.2006
Beiträge: 5729

BeitragVerfasst am: 22.11.2007, 14:46 Nach oben

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

_________________

Viele Grüße vom Schatzi

------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!
Benutzer-Profile anzeigenPrivate Nachricht senden
Madde
Newbie
Newbie


Anmeldedatum: 12.09.2007
Beiträge: 38

BeitragVerfasst am: 22.11.2007, 14:58 Nach oben

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
Benutzer-Profile anzeigenPrivate Nachricht senden
schatzi
Moderator
Moderator


Anmeldedatum: 09.12.2006
Beiträge: 5729

BeitragVerfasst am: 22.11.2007, 15:02 Nach oben

Dann setze die Trim's vor alle:

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

_________________

Viele Grüße vom Schatzi

------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!
Benutzer-Profile anzeigenPrivate Nachricht senden
Madde
Newbie
Newbie


Anmeldedatum: 12.09.2007
Beiträge: 38

BeitragVerfasst am: 26.11.2007, 12:45 Nach oben

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

aber danke für die hilfe :)
Benutzer-Profile anzeigenPrivate Nachricht senden
Beiträge der letzten Zeit anzeigen:      
Neues Thema eröffnenNeue Antwort erstellen


Ähnliche Beiträge
Thema Autor Forum Antworten Verfasst am
Keine neuen Beiträge Wert zweier Zellen vergleichen und dr... Frederic Microsoft Excel Hilfe 4 31.10.2008, 14:07 Letzten Beitrag anzeigen
Keine neuen Beiträge Excelblätter vergleichen excelharp Microsoft Excel Hilfe 3 06.10.2008, 16:46 Letzten Beitrag anzeigen
Keine neuen Beiträge Wert von 2 Feldern vergleichen hubi81 Microsoft Excel Hilfe 3 29.09.2008, 12:54 Letzten Beitrag anzeigen
Keine neuen Beiträge Ober und Untergrenze Vergleichen - Te... Hildegard Microsoft Excel Hilfe 2 24.09.2008, 19:58 Letzten Beitrag anzeigen
Keine neuen Beiträge sicher nur einfache Variablen .... SparkY Microsoft Excel Hilfe 3 17.09.2008, 08:02 Letzten Beitrag anzeigen


 Gehe zu:   



Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Haftungsausschluss/Disclaimer


SMS kostenlos versenden | Battle-Dream | Tuning Forum | Join the YoungGeneration | krankenversicherungsvergleich | Kalorienarme Rezepte!
Versicherungsvergleich | Bürobedarf | Papier | Betten

Ranking-Hits



Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de