Hilfe bei Excel VBA - MsgBox

[alnourx]

Hallo,
Ich habe ein kleines Problem und hoffe, dass Sie mir dabei helfen können.
Ich habe ein Makro-Programm, das die Zellen ("D6:O6") von Tabellenblatt1 zu Tabellenblatt3 kopiert.
Ich wollte folgendes machen --> wenn die Zellen (von D6 bis O6) leer sind und aus Versehen auf Button1 geklickt wurde, sollte ein MsgBox ("Bitte erst die Zellen füllen") angezeigt werden ansonsten müssen die Zellen kopiert werden.
Ich habe den folgenden Code geschrieben aber irgendwie funktioniert nicht richtig.

Code:

Sub Button1()
'
' Button1 Makro
Dim rcell As Range
For Each rcell In Range("D6:O6")
If rcell.Value = "" Then
MsgBox ("Bitte erst die Zellen füllen")
Else
Range("D6:O6").Select
 Selection.Copy
 Sheets("Tabelle3").Select
    Range("A7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows("7:7").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 End If
    Next
End Sub

Danke.

[Kl@us-M.]

Hallo,

zunächst mal: Wir duzen uns in den Foren ))

Zu Deiner Frage: Wenn Du Bedingungen stellst, lautet die Syntax eigentlich immer WENN -> DANN -> SONST (If -> Then -> Else).

Und genau dieses DANN (Then) fehlt in Deinem Code: Du lässt zwar die MsgBox aufspringen, sagst aber nicht, dass danach nix passieren soll. Ausserdem lässt sich Dein Code erheblich verkürzen, wenn Du auf die Selektiererei verzichtest ...

Code:

Option Explicit

Sub Button1()
Dim rcell As Range
For Each rcell In Range("D6:O6")
If rcell.Value = "" Then
MsgBox ("Bitte erst die Zellen füllen")
Exit Sub
Else
Range("D6:O6").Copy Sheets("Tabelle3").Range("A7")
End If
   Next
End Sub

[RPP63]

Moin!
Warum die Prüfung per Schleife?
(ich kann mich nur mit Schleifen in Arrays anfreunden)

Pseudo-Code:

Code:

If WorksheetFunction.CountA(Range("D6:O6")) < Range("D6:O6").Columns.Count Then

Two Cents,

Ralf

[alnourx]

Vielen lieben Dank
Genau was ich brauche.
Der Code funktioniert wie ich mir vorgestellt habe.

LG