Codeablauf falsch..
14.10.2012 20:04:05
Matze,Matthias
die Sache läuft nicht richtig ab
Option Explicit
Sub REtoDB()
Dim i As Long
Dim rng As Range
On Error Resume Next
Set rng = Sheets("Eingabe").Range("D4:D13").SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not rng Is Nothing Then GoTo Raus:
Set rng = Nothing
With Tabelle4
i = .Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
If i Nach dem Klick auf den Button der dieses Makro ausführt wenn sich eine "Leere Zelle" im Bereich befindet funktioniert.
Sind aber alle Zellen mit Daten gefüllt , werden die Bereich in die Dantenbank übernommen. Meldung MsgBox "Eingaben wurden in Datenbank abgelegt!" erscheint und was NICHT sein darf
Meldung MsgBox "fehlender Eintrag!!" kommt auch.
Was mach ich falsch?
Gruß Matze
Anzeige