ich möchte bestimmte Werte im Tabelleblatt "Stammdaten" mit Werten aus dem Tabellenblatt " Dispo" überschreiben bzw. aktualisieren (s. beil. Makro).
Worksheets("Stammdaten").Activate
Columns("A:A").Select
Suche1 = Worksheets("Dispo").Range("E13")
Menge1 = Worksheets("Dispo").Range("Q13")
Selection.Find(What:=Suche1, After:=ActiveCell, MatchCase:=False).Activate
ActiveCell.Offset(0, 11).Select
ActiveCell = ActiveCell - Menge1
Worksheets("Stammdaten").Activate
Columns("A:A").Select
Suche2 = Worksheets("Dispo").Range("E14")
Menge2 = Worksheets("Dispo").Range("Q14")
Selection.Find(What:=Suche2, After:=ActiveCell, MatchCase:=False).Activate
ActiveCell.Offset(0, 11).Select
ActiveCell = ActiveCell - Menge2
Worksheets("Stammdaten").Activate
Columns("A:A").Select
Suche3 = Worksheets("Dispo").Range("E15")
Menge3 = Worksheets("Dispo").Range("Q15")
Selection.Find(What:=Suche3, After:=ActiveCell, MatchCase:=False).Activate
ActiveCell.Offset(0, 11).Select
ActiveCell = ActiveCell - Menge3
Das funktioniert aber nur, wenn in den Zellen E13, E14, E15 ein Eintrag vorhanden ist, sonst erscheint folgende Fehlermeldung:
"Laufzeitfehler 13; Typen unverträglich"
Wie kann ich die Meldung unterdrücken bzw. wie muß ich den Code ändern, damit die Meldung nicht mehr erscheint ??