Hallo Excelgemeinde,
irgendwo habe ich einen Gedankenfehler drin und hoffe auf Eure Unterstützung.
Im Arbeitsblatt Datenerfassen gibt es einen Button, der die erfassten Daten in ein anderes Tabellenblatt weitergibt.
Allerdings wollte ich noch eine Abfrage vorschalten, wenn es keine Erfassungen gab und habe dazu in Zelle aa1 die Formel =zählenwenn("a11:a110";"x") eingestellt und wenn diese halt 0 als Ergebnis hat, dann sollte eine MsgBox darauf hinweisen, dass es noch keine Erfassungen gab und soll auf die Zelle C11 springen.
Ist eine Erfassung vorhanden - sprich Zellwert aa1>1 dann soll das Makro für die Übertragung durchgeführt werden.
Anfangs hatte ich das End If direkt vor dem End Sub gestellt, aber da kam die Info, dass End If fehlen würde. Kam mir ebenfalls komisch vor.
Aber - wenn ich keine Erfassung habe und den Button betätige komme ich bis zur MsgBox und mit Bestätigung des OK-Buttons läuft das Makro dann aber mit dem kopieren weiter, obwohl keine Daten vorhanden sind und verlässt damit das aktuelle Arbeitsblatt, obwohl ich es dann lieber hätte, dass er mir hier zunächst einmal stehen bleibt.
In der Hoffnung das mir jemand bei dem nachfolgenden Makro helfen kann, verbleibe ich mit...
have a nice Day... Gruß Helmut
Sub erfbeenden()
If Range("aa1") = 0 Then
MsgBox "Es wurden keine Daten erfasst... !"
Sheets("Datenerfassen").Select
Range("c11").Select
Else
End If