Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1056to1060
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1056to1060
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abfrage ob alles ausgefüllt ist beim Speichern

Abfrage ob alles ausgefüllt ist beim Speichern
05.03.2009 13:22:44
herbi
Hallo,
habe mit Excel eine Liste zur Erfassung der Arbeitszeiten für eine Abteilung erstellt.
Darin steht in Spalte E (Beginnend ab E8, bis E99) jeweils immer die Tätigkeit, in Spalte F trägt der Mitarbeiter die dazugehörige Arbeitszeit ein. Es kann den Fall geben, dass nur in einer Zeile Tätigkeiten stehen, es können aber auch maximal bis zur Zeile E99 Tätigkeiten erfasst werden.
In die Datei ist ein Makro integriert welches mittels Steuerelement die Datei unter einem anderen Namen speichert. soweit so gut!
Jetzt möchte ich das Makro erweitern, dass die Datei nur gespeichert werden kann, wenn zu jeder Tätigkeit eine Arbeitszeit (in Minuten) eingetragen ist oder umgekehrt. Leere Zeilenpäärchen sind zulässig, komplett ausgefüllte Pärchen auch. Sobald ein Wert fehlt, soll die Meldung kommen "unvollständiger Eintrag"
Beispiel: Zulässig
E8 Telefonieren..... F8 60
E9 Kopieren..... F9 15
Unzulässig
E8 Telefonieren..... F8 "Leer"
E9 "Leer"..... F9 25
Hat jemand eine Idee wie ich das machen kann
danke

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
bitte bsp-datei
05.03.2009 13:45:46
Oberschlumpf
hi...
...inkl. makro, bsp-daten und erklärungen innerhalb der bsp-datei, was wann wie wo warum passierne soll.
danke
Ciao
Thorsten
AW: Abfrage ob alles ausgefüllt ist beim Speichern
05.03.2009 13:46:20
Jogy
Hi.
Der Code muss in "DieseArbeitsmappe" 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim zeIle As Long
' Sucht von Zeile 8 bis 99
For zeIle = 8 To 99
' Ich gehe mal vom ersten Arbeitsblatt aus, wenn es ein anderes ist, dann muss
' das hier geändert werden
With ThisWorkbook.Sheets(1)
' Wenn Spalte E leer, dann muss auch Spalte F leer sein
If IsEmpty(.Cells(zeIle, 5)) Then
If Not IsEmpty(.Cells(zeIle, 6)) Then
Call MsgBox("Zeitangabe ohne Tätigkeitsangabe in Zeile " & zeIle _
& ". Speichern wird abgebrochen.", vbExclamation)
Cancel = True
Exit Sub
End If
' Wenn Spalte E nicht leer, dann muss in Spalte F eine Zahl stehen
Else
' Überprüfung auf keine Zahl oder leer
If Not IsNumeric(.Cells(zeIle, 6)) Or IsEmpty(.Cells(zeIle, 6)) Then
Call MsgBox("Tätigkeitsangabe ohne Zeitangabe in Zeile " & zeIle _
& ". Speichern wird abgebrochen.", vbExclamation)
Cancel = True
Exit Sub
' Überprüfung auf negative Werte
ElseIf .Cells(zeIle, 6)

Gruss, Jogy

Anzeige
AW: Abfrage ob alles ausgefüllt ist beim Speichern
05.03.2009 14:00:25
herbi
COOOOOOOOOOOL
Fetten Dank Jogy - funzt einwandfrei!!!
Herbi

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige