Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1576to1580
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
1576to1580
1576to1580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Worksheet_Calculate für mehrere Zellen

Makro Worksheet_Calculate für mehrere Zellen
23.08.2017 15:12:14
Stefanie
Hallo Zusammen,
ich habe aktuell folgendes Problem:
Ich habe eine Excel-Datei in der in den Zelle D12 bis D52 Formeln enthalten sind.
Ich bin jetzt auf der Suche nach einem Makro das besagt:
Wenn eine der Formeln in D12 bis D52 einen Wert größer 20 ausgibt, dann die MsgBox "Achtung Abweichung" anzeigen.
Nur für Zelle D12 habe ich es hinbekommen, aber für mehrere Zellen habe ich bisher keine Lösung gefunden: 
Private Sub Worksheet_Calculate()
If Range("$D$12").Value = "" Then Exit Sub
If Range("$D$12").Value > 20 Then
MsgBox "SL informieren ! Abweichung SAP und tatsächliches Gewicht zu hoch !"
End If
End Sub
Vielen Dank für eure Hilfe

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Worksheet_Calculate für mehrere Zellen
23.08.2017 15:19:18
Fennek
Hallo,
teste mal

if worksheetfunction.max(Range("D12:D52")) > 20 then msgbox "xxx"
mfg
(ungeprüft)
AW: Makro Worksheet_Calculate für mehrere Zellen
23.08.2017 15:22:16
ZD14
Einfach eine Schleife Drumherum :)
    Dim i As Integer
i = 12
For i = 12 To 52
If Cells(i, 4).Value > 20 Then
MsgBox "SL informieren ! Abweichung SAP und tatsächliches Gewicht zu hoch !"
End If
Next i

LG
AW: Makro Worksheet_Calculate für mehrere Zellen
24.08.2017 09:09:56
Stefanie
Vielen Dank für die schnellen Antworten! Jetzt hat es funktioniert :)
AW: Makro Worksheet_Calculate für mehrere Zellen
24.08.2017 13:43:21
Stefanie
Hallo Zusammen,
ich habe dazu doch nochmal eine Frage
Ich habe jetzt in Tabelle 1 den folgenden Code. Dieser funktioniert bei der Dateneingabe auch einwandfrei. 
Private Sub Worksheet_Calculate()
If WorksheetFunction.Max(Range("D12:D52")) > 20 Then
MsgBox "SL informieren ! Abweichung SAP und tatsächliches Gewicht zu hoch !"
End Sub
Zusätzlich habe ich noch in "DieseArbeitsmappe" einen Code damit die Datei unter einem bestimmten Pfad gespeichert wird (Siehe unten).
Jeztt habe ich das Problem, dass beim Speichern der Datei die Msg Box "SL informieren ! Abweichung SAP und tatsächliches Gewicht zu hoch!" auftaucht obwohl alle Daten stimmen.
Vielen Dank für eure Hilfe. 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Wenn Lieferschein-Nr. fehlt, dann Msg Box und Sub abbrechen
If WorksheetFunction.Max(Range("D12:D52")) > 20 Then
MsgBox "SL informieren ! Abweichung SAP und tatsächliches Gewicht zu hoch !"
End
Else
If Range("$A$6") = "" Then
MsgBox "Bitte Kunden-Nr. eingeben!"
End
Else
If Range("$C$6").Value = "" Then
MsgBox "Lieferschein-Nr. fehlt"
End
End If
End If
End If
'Datei speichern unter dem Namen der ersten Lieferung in C6
strDatei = Format(Range("C6"))
ActiveWorkbook.Worksheets("Lieferung").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Users\stefanieguder\Desktop\Gewichte\" & strDatei & ". _
xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.Close 'schließen
' Löschen der Daten im Standardformular
Range("A6:A9").Select
Selection.ClearContents
Range("B6:B9").Select
Selection.ClearContents
Range("C6:C9").Select
Selection.ClearContents
Range("A12:A33").Select
Selection.ClearContents
Range("B12:B33").Select
Selection.ClearContents
Range("C12:C33").Select
Selection.ClearContents
End Sub

Anzeige
AW: Makro Worksheet_Calculate für mehrere Zellen
24.08.2017 13:49:44
Stefanie
Okay das Problem hat sich erledigt. Ich hatte einen Fehler in der Reihenfolge der Löscheinträge

306 Forumthreads zu ähnlichen Themen

Dropdownliste ausgew. gültige Werte aktualisieren
Flo

Hallo allerseits!
Ich habe ein Problem mit der Aktualisierung von bereits ausgewählten gültigen Werten in einer Dorpdownliste. Die gütligen Werte der Dropdownliste werden per Namensdefinition aus einem anderen Excelblatt gefüllt. Nun kommt es öfter mal vor, dass sich die Gültigen Werte im s...
16.08.2008 16:24:00
Thread-ID: 1002344
2 Beiträge
Anzeige
Liste aus Daten mittels Drop-Down Menüs erstellen
Marco

Hallo liebes Forum,
ich habe mal wieder ein Problem und hoffe auf Eure hilfe. Wahrscheinlich ist das für einen VBA Profi ein lacher, für mich allerdings ein Krampf.
Ich will automatisch einen Packplan erstellen. Hierfür existieren vordefinierte Vorlagen, hinsichtlich des jeweiligen Item...
11.10.2008 19:51:00
Thread-ID: 1015785
7 Beiträge
dynamische Dropdown-Liste
Helmut

Hallo Excel-Profis,
ich möchte gerne eine dynamische Dropdown-Liste erstellen.
Dabei möchte ich z.B. eine Namensliste zur Auswahl anbieten, wo aber der oder die Namen die schon mal ausgewählt wurden, nicht mehr zur Verfügung stehen (so dass ein Namen nicht 2 mal ausgewählt werden kann)....
14.10.2008 12:43:43
Thread-ID: 1016304
2 Beiträge
Anzeige
Dropdownliste aus Matrix erstellen
asdf

Hi ich habe folgendes Problem,
ich hab eine Matrix und möchte die Zeile und Spalte per Dropdownliste auswählen
(wie ich die Dropdownliste selbst erstelle weiss ich ) und will nach auswahl von Zeile und Spalte nun das Ergebnis aus der Matrix haben, also den inhalt der in Spalte x und Ze...
31.10.2008 11:26:37
Thread-ID: 1020823
2 Beiträge
Dropdownliste aus Matrix erstellen
asdf

Hi ich habe folgendes Problem,
ich hab eine Matrix und möchte die Zeile und Spalte per Dropdownliste auswählen
(wie ich die Dropdownliste selbst erstelle weiss ich ) und will nach auswahl von Zeile und Spalte nun das Ergebnis aus der Matrix haben, also den inhalt der in Spalte x und Ze...
31.10.2008 11:38:00
Thread-ID: 1020833
2 Beiträge
Dropdownliste erweitern
Rainer

Hallo Leute,
ich hab mal wieder ne Frage. Ich habe eine Dropdownliste erstellt, in dem ich bestimmte Zellen markiert habe und diesen über die Name Box (linke Seite der Eingabe, wo normalerweise die Zelle steht) einen Namen gegeben haben. Aus dieser Liste kann ich dann im Dropdownmenu auswäh...
05.11.2008 09:52:00
Thread-ID: 1021773
2 Beiträge
dropdownliste mit bilder
e-mo

Hallo..
ich habe eine Frage in Bezug zum Dropdown Liste.
Ich kann eine Dropdownliste mit der Auswahl erstellen, das ist lein Problem.
moechte aber jetzt eine Dropdownliste erstellen, wo ich als liste, paar bilder habe. Ist das moeglich? ich habe bereits in diversen foren gesucht, le...
18.11.2008 17:06:17
Thread-ID: 1025706
2 Beiträge
Dropdown-Auswahlliste: Ausgabe anderer Text
Daniel

Hallo
Ich habe eine Dropdown-Auswahlliste erstellt, die auch funktioniert. Nun möchte ich aber, dass aus Platzgründen ein anderer (kürzerer) Text ausgegeben wird als in der Auswahlliste angezeigt wird.
Beispiel: Anzeige = Telefon ----- Ausgabe im Feld = Tel.
Ist das überhaupt mac...
04.12.2008 08:58:00
Thread-ID: 1030032
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
6
1
3
1
1
1
1
1
2
2
6
4
5
2
1
13
18
1
4
3
3
5
3