Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA Zellen Vergleichen

VBA Zellen Vergleichen
11.06.2009 13:51:31
Sprekelmeyer
Hallo,
ich hab da mal wieder ein Problem.
Ich habe zwei Excel Mappen :offene Rechnungen und Rechnungsvorlage.
Das Makro soll nun überprüfen ob in I8 von offene Rechnungen/ (Sheet) Kunde 01 das gleiche steht wie in I8 von Rechnungsvorlage/ (Sheet) Artikel.
Wenn das gleiche in den Zellen steht dann Call Makro1, sonst MsgBox Kundennummer stimmt nicht überein.
MfG und danke schonmal
Stephan
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zellen Vergleichen
11.06.2009 17:57:34
Sprekelmeyer
Hallo,
hat denn keiner eine Idee?
MfG
AW: VBA Zellen Vergleichen
11.06.2009 17:58:57
Sprekelmeyer
Frage ist leider noch offen! Sorry Haken vergessen.
AW: VBA Zellen Vergleichen
11.06.2009 23:41:47
Jens

Sub tt()
If Workbooks("offene Rechnungen").Worksheets("Kunde 01").Range("I8")=Workbooks(" _
Rechnungsvorlage").Worksheets("Artikel").Range("I8") Then
Call Makro1
Else
MsgBox "Kundennummer stimmt nicht überein"
End If
End Sub


Gruß Jens

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

VBA Zellen Vergleichen in Excel


Schritt-für-Schritt-Anleitung

Um die Zellen in verschiedenen Excel-Mappen zu vergleichen, kannst Du das folgende VBA-Makro verwenden. Stelle sicher, dass Du die korrekten Mappen und Blätter benennst.

  1. Öffne Excel und lade die beiden Mappen: „offene Rechnungen“ und „Rechnungsvorlage“.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Wähle im Menü „Einfügen“ die Option „Modul“, um ein neues Modul zu erstellen.

  4. Kopiere den folgenden Code in das Modul:

    Sub tt()
        If Workbooks("offene Rechnungen").Worksheets("Kunde 01").Range("I8") = Workbooks("Rechnungsvorlage").Worksheets("Artikel").Range("I8") Then
            Call Makro1
        Else
            MsgBox "Kundennummer stimmt nicht überein"
        End If
    End Sub
  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Führe das Makro aus, um die Zellen zu vergleichen.


Häufige Fehler und Lösungen

  • Fehler: „Sub oder Funktion nicht definiert“

    • Stelle sicher, dass das Makro „Makro1“ existiert und korrekt benannt ist.
  • Fehler: „Arbeitsmappe nicht gefunden“

    • Überprüfe, ob die Arbeitsmappen „offene Rechnungen“ und „Rechnungsvorlage“ geöffnet sind und die Namen exakt übereinstimmen.

Alternative Methoden

Wenn Du kein VBA verwenden möchtest, kannst Du auch die Excel-Funktion WENN nutzen, um die Zellen zu vergleichen:

=WENN(A1=B1; "Übereinstimmung"; "Keine Übereinstimmung")

Setze die entsprechenden Zellreferenzen ein, um die Werte von „offene Rechnungen“ und „Rechnungsvorlage“ zu vergleichen.


Praktische Beispiele

Angenommen, Du hast in der Zelle I8 der Datei „offene Rechnungen“ die Kundennummer 12345 und in der Zelle I8 der Datei „Rechnungsvorlage“ ebenfalls 12345. Wenn Du das Makro ausführst, wird „Makro1“ aufgerufen. Bei unterschiedlichen Werten erhältst Du die Nachricht: „Kundennummer stimmt nicht überein“.


Tipps für Profis

  • Verwende die Trim-Funktion in VBA, um sicherzustellen, dass keine überflüssigen Leerzeichen die Vergleichsergebnisse beeinflussen:

    If Trim(Workbooks("offene Rechnungen").Worksheets("Kunde 01").Range("I8")) = Trim(Workbooks("Rechnungsvorlage").Worksheets("Artikel").Range("I8")) Then
  • Denke daran, dass die Groß- und Kleinschreibung bei Vergleichen berücksichtigt wird. Verwende die UCase- oder LCase-Funktion, um dies zu vermeiden.


FAQ: Häufige Fragen

1. Was mache ich, wenn ich eine Fehlermeldung erhalte? Überprüfe die Namen der Arbeitsmappen und Blätter. Achte darauf, dass alle Mappen geöffnet sind.

2. Kann ich das Makro anpassen, um mehr als nur Zelle I8 zu vergleichen? Ja, Du kannst die Range-Angaben im VBA-Code anpassen, um beliebige Zellen oder Bereiche zu vergleichen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige