Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1024to1028
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Hinweis wenn Zellen nicht gefüllt sind

Hinweis wenn Zellen nicht gefüllt sind
24.11.2008 23:09:00
Uwe
Hallo an Alle,
hab dank der Recherche mir folgendes Macro zusammen gestellt....

Sub Uebergeben1()
Dim lRow As Long
lRow = Worksheets("Tabelle1").Cells(Rows.Count, 3).End(xlUp).Row + 1
Worksheets("Tabelle1").Unprotect
Worksheets("Tabelle3").Range("C3, C5, C7, C9, C11, C13, C15, C17, C19, C21, C23").Copy
Worksheets("Tabelle1").Cells(lRow, 2).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
Worksheets("Tabelle1").Protect
Worksheets("Tabelle3").Activate
Range("C3").Value = ""
Range("C5").Value = ""
Range("C7").Value = ""
Range("C9").Value = ""
'Range("C11").Value = ""
Range("C13").Value = ""
Range("C15").Value = ""
Range("C17").Value = ""
Range("C19").Value = ""
Range("C21").Value = ""
Range("C23").Value = ""
ActiveWorkbook.SaveAs
End Sub


....ist es möglich das wenn in den Zellen von C3;C5;C7;C9;C11;C13;C15;C17;C19;C21 nicht befüllt sind, das Macro zu stoppen und einen Hinweis zu geben und zurück zur eingabe.
Es soll verhindert werden, die Liste unvollständig zu befüllen.
C23 bleibt davon unberührt.
Vorab schon mal Dank für die Hilfe!
Gruß Uwe

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hinweis wenn Zellen nicht gefüllt sind
25.11.2008 00:43:00
Daniel
Hi
du kannst so prüfen:

If WorksheetFunction.CountA(Range("C3, C5, C7, C9, C11, C13, C15, C17, C19, C21")) = 10 Then
MsgBox "i.O, alle Zellen befüllt"
Else
MsgBox "es sind nicht alle Eingabefelder befüllt"
End If


Gruß, Daniel

AW: Hinweis wenn Zellen nicht gefüllt sind
25.11.2008 01:08:22
Uwe
Hallo Daniel, schön mal wieder was von Dir zu lesen.
Hab das mal probiert, als Button zur seperaten Abfrage, da gib er mir Typen unverträglich aus.
Hab allerdings auch nicht das wissen wie ich das so einbauen kann, das wenn eine Zelle nicht gefüllt ist man wieder zurück kommt auf das Tabellenblatt. Es soll verhindert werden das man dann trotzdem speichern kann.
Wäre nett wenn du dich meinem Problem nochmal annehmen könntest.
Vorab schon mal Dank!
Gruß Uwe
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige