MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 07.11.2018, 12:31   #1
Fr4nk
Neuer Benutzer
Neuer Benutzer
Standard VBA - Suchen und Vergleichen merherer Kriterien

Hallo,

ich hole mir aus der Tabelle "Anlagen" Spalte 2 den Wert ("Fahrerstandsklimagerät HKL 308") und holen mir den Teil den ich benötige ("HKL 308")

Jetzt möchte ich das Ergebnis in der Tabelle "Fristen" in Spalte 2 suchen.
Wenn es vorhanden ist in der Gleichen Zeile vergleichen ob der KM-Stand größer ist.

Es hängt aber schon bei
If Worksheets("Fristen").Cells(IFrist, 2).Value2 = hkl Then
Obwohl beide Werte beim ausgeben in einer Msgbox den gleichen Inhalt haben werden sie nicht als gleich erkannt...
PHP-Code:

Dim Wort As String
    Dim pos1 
As Integer
    Dim hkl 
As String
    
    Wort 
Worksheets("Anlagen").Cells(IAnlagen2).Value
    pos1 
InStr(Wort"HKL")
    
hkl Right(Wort7)
    
    For 
IFrist 1 To AnzahlFristen
        
If Worksheets("Fristen").Cells(IFrist2).Value2 hkl Then
            
If Worksheets("Fristen").Cells(IFrist4).Value Worksheets("Anlagen").Cells_
IAnlagen
12).Value Then
                Worksheets
("Anzeige").Cells(IAnzeige9).Value Worksheets("Fristen").Cells_
IFrist
6).Value
                
Exit For
            
End If
        
End If
    
Next IFrist 
Vielleicht habt Ihr eine Idee oder eine andere Suchmethode...
Fr4nk ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.11.2018, 14:45   #2
Hasso
MOF Meister
MOF Meister
Standard

Hallo Frank,

hat der Wert in Worksheets("Fristen").Cells(IFrist, 2) eventuell am Ende ein Leerzeichen (das würde man in der Messagebox nicht sehen, aber die Strings wären nicht gleich). Das kannst du umgehen, indem du den Vergleich folgendermaßen schreibst:
Code:

If Trim(Worksheets("Fristen").Cells(IFrist, 2).Value2) = hkl Then
Wenn das nichts bringt, lade doch die Datei hoch.

__________________

Gruß Hasso

Programmers don't die, they just GOSUB without RETURN

System Windows 7 Enterprise 64, Office 2013
Wenn dir mein Beitrag gefallen hat, kannst du ihn bewerten (mit dem Symbol links unten)
Hasso ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.11.2018, 09:40   #3
Fr4nk
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo,

nein es wahren keine Leerzeichen vorhanden.
Ich habe auch mal in beiden Zellen von Hand das Gleiche reingeschrieben und trotzdem bleibt der Fehler erhalten.

Habe es jetzt aber anders gelöst.


Grüße
Frank
Fr4nk ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.11.2018, 09:47   #4
Hasso
MOF Meister
MOF Meister
Standard

Hallo Frank,

Zitat: von Frank

Habe es jetzt aber anders gelöst.

Würdest du uns die Lösung verraten?

__________________

Gruß Hasso

Programmers don't die, they just GOSUB without RETURN

System Windows 7 Enterprise 64, Office 2013
Wenn dir mein Beitrag gefallen hat, kannst du ihn bewerten (mit dem Symbol links unten)
Hasso ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.11.2018, 10:28   #5
Fr4nk
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Das Problem habe ich gelöst indem ich mich mit ExtractNumber nur um die Zahlen gekümmert habe.

Letztendlich ist es mir aber gelungen die Verknüpfung in dem System herzustellen, das mir die Daten für meine Tabellen liefert.

Grüße
Frank
Fr4nk ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.11.2018, 10:30   #6
steve1da
MOF Meister
MOF Meister
Standard

Hola,

das nächste mal verlinkst du bitte deine Fragen in den verschiedenen Foren gegenseitig.

Gruß,
steve1da
steve1da ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.11.2018, 12:57   #7
Fr4nk
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

ok mach ich
Fr4nk ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:17 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.