Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Paul1 vom 25.10.2022, 19:54 Options

Verplanung

Hallo Allseits,

Es geht um die wöchentliche Verplanung von Mitarbeitern für Einsätze in Objekten (Baustellen) unter gleichzeitigem Vergleich mit den vertraglich vereinbarten Zeiten pro Tag.

Das eigentliche Problem ist, dass es mir nicht gelungen ist, wenn in einem Zellbereich z.B. B16 bis H18 auf Grund einer falschen Eingabe in irgendeiner Zelle „FEHLER“ steht auch zusätzlich ein deutlicher Hinweis bereits im Zuge der Eingabe (oder auch permanent) eingeblendet wird.

Für Tipps, Hinweise, Links oder Vorschläge auch Allgemein bedanke ich mich im Voraus

Herzliche Grüße

Paul1

P.S.
Wenn erforderlich, ein provisorisches Grundgerüst zur Ansicht wäre vorhanden.

Excel 2003

Antwort schreiben

Antwort 1 von Saarbauer vom 26.10.2022, 07:31 Options

Hallo,

dein Problem ist aus meiner Sicht, wenn überhaupt, nur per Makro zu lösen.

Du müsstest nach jeder Eingabe eine abfrage starten, die prüft ob deine Eingabe fehlerfrei ist.

Gruß

Helmut

Antwort 2 von coros vom 26.10.2022, 07:53 Options

Hallo Paul,

nachfolgender Code prüft nach der Eingabe, ob eine Berechnung einen Fehler enthält. Tritt ein Fehler auf, erscheint eine entsprechende Fehlermeldung

Kopiere das Makro in das VBA-Projekt des Tabellenblatts, in dem er wirken soll.Teste den Code aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim lngRow As Long Dim intColumn As Integer Dim rngCells As Range intColumn = ActiveSheet.Cells.Find("*", searchdirection:=xlPrevious).Column lngRow = ActiveSheet.Cells.Find("*", searchdirection:=xlPrevious).Row Set rngCells = Range(Cells(1, 1), Cells(lngRow, intColumn)) On Error GoTo Weiter MsgBox "Durch die letzte Eingabe enthalten " _ & rngCells.Cells.SpecialCells(xlCellTypeFormulas, 16).Count _ & " Formel(n) fehlerhafte Bereechnungen. Bitte Eingabe prüfen!", vbCritical, "Fehler..." Exit Sub Weiter: End Sub

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 3 von Paul1 vom 26.10.2022, 09:08 Options

Hallo an Alle!

vorerst besten Dank für die prompten Antworten!

Hallo Oliver,

Deinen mir übermittelten Code habe ich kopiert und eingefügt, jedoch scheint unter Makros nichts auf um ihn ausführen zu können.
Habe ich da was falsch gemacht?
Makros einfügen habe ich schon öfters mit Erfolg durchgeführt, aber ansonsten habe ich davon keine Ahnung.

Vielleicht wäre es von Vorteil die Datei zu sehen:

Verplanung-Konzept

schöne Grüße

Paul1

Antwort 4 von coros vom 26.10.2022, 09:18 Options

Hallo Paul,

mein Code hat Fehler in Formeln wie "#WERT!" oder "#BEZUG!" usw. ausgewertet und dann entsprechend reagiert. Bei Dir geht es ja um das Wort "FEHLER", das hatte ich falsch interpretiert.

Nachfolgender Code sollte aber nun funktionieren, da dieser das Wort "FEHLER" auswertet.

Kopiere das Makro in das VBA-Projekt des Tabellenblatts, in dem er wirken soll.
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim rngCells As Range For Each rngCells In Range("B16:H18") If LCase(rngCells.Value) = LCase("Fehler") Then MsgBox "Durch die letzte Eingabe ist ein Fehler aufgetreten. Bitte Eingabe prüfen!" _ , vbCritical, "Fehler..." Exit For End If Next End Sub

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 5 von Paul1 vom 26.10.2022, 09:41 Options

Hallo Oliver,

Deine Lösung entspricht genau meinen Vorstellungen - super !!!

Vielen herzlichen Dank und noch einen schönen Tag

mit besten Grüßen

Paul 1

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken