Ich bin am Verzweifeln, auch stundenlanges googeln hat nicht geholfen.
Nun hoffe nun auf eure Hilfe!
Ich möchte per Makro Zahlenwerte aus einem Tabellenblatt
in ein anderes Tabellenblatt zur weiteren Berechnung übertragen.
Das funktioniert auch super.
Jetzt zum eigentlichen Problem.
Vor dem Übertragen der Zahlenwerte soll geprüft werden, ob im
anderen Tabellenblatt (Liste) bereits Zahlenwetre vorhanden sind.
Falls ja soll eine MsgBox mit einer Meldung geöffnet werden und
das Makro abgebrochen werden. Falls alles leer ist soll ein anderes
Makro mit "Call" aufgerufen werden.
Da in einer der zu überprüfenden Spalten im Blatt "Liste" Formeln vorhanden
sind müsste das Makro so aufgebaut sein, dass es bei der Überprüfung nicht
nach leeren Zellen sucht, sondern nach Zahlen >=1.
Wichtig ist auch, dass die zu überprüfenden Spalten per "select" ausgewählt
werden können, da sich der Bereich ändern kann und daher für die Auswahl der
Spalten ein extra Makro existiert welches über den Befehl "Call" aufgerufen
wird.
Hier das Makro welches ich z.Zt. habe. Die Überprüfung scheitert jedoch an
den Formeln. Außerdem wird das Makro nach dem Erscheinen der MsgBox nicht
beendet.
Sub Einzel_Überprüfen_ob_Liste_leer()
Sheets("Liste").Select
Call Einzel_Tab_Liste_Schränke_Entnahme_Eingang_markieren
For Each Zelle In Selection
If IsEmpty(Zelle) = False Then
MsgBox "Im Arbeitsblatt Liste sind bereits Eintäge vorhanden! Diese zuerst speichern und _
anschließend den Vorgang wiederholen!"
Exit For
End
Else
End If
Call Einzel_Tabellenfarbe_rot
End Sub
Ich hoffe ihr könnt mir hefen!