Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1684to1688
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
1684to1688
1684to1688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MsgBox erst nach For-Next-Schleife

MsgBox erst nach For-Next-Schleife
30.03.2019 14:37:38
Martin
Hallo Forum ich bin neu in VBA,
ich möchte den unten stehenden Code so anpassen das die MsgBox erst erscheint wenn die For-Next-Schleife durchgelaufen ist und nicht wie jetzt, nach jedem Abgleich erscheint.
Nur weiss ich nicht wie das gehen soll...
Danke für Eure Hilfe! 
Sub DuplicateValuesFromSelection()
ActiveSheet.Range("A2:B14").Select
Dim myRange As Range
Dim i As Integer
Dim j As Integer
Dim myCell As Range
Set myRange = Selection
For Each myCell In myRange
myCell.Interior.ColorIndex = 2
If WorksheetFunction.CountIf(myRange, myCell.Value) > 1 Then
myCell.Interior.ColorIndex = 3
MsgBox ("Stopp!")
End If
Next
End Sub

25
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MsgBox erst nach For-Next-Schleife
30.03.2019 14:42:45
Hajo_Zi 

Option Explicit
Sub DuplicateValuesFromSelection()
Dim BoWahr As Boolean
ActiveSheet.Range("A2:B14").Select
Dim myRange As Range
Dim i As Integer
Dim j As Integer
Dim myCell As Range
Set myRange = Selection
For Each myCell In myRange
myCell.Interior.ColorIndex = 2
If WorksheetFunction.CountIf(myRange, myCell.Value) > 1 Then
myCell.Interior.ColorIndex = 3
BoWahr = True
MsgBox ("Stopp!")
End If
Next
If BoWahr Then
MsgBox ("Stopp!")
End If
End Sub

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
AW: MsgBox erst nach For-Next-Schleife
30.03.2019 14:45:22
Hajo_Zi
MsgBox ("Stopp!")
nach BoWahr =True löschen.
Gruß Hajo
AW: MsgBox erst nach For-Next-Schleife
30.03.2019 14:51:47
Martin
Super Danke für die schnelle Antwort, nach deiner Korrektur funktionierts super=)))
mal zum Nachdenken ...
30.03.2019 15:15:34
Matthias
Hallo Martin
Zitat
ich möchte den unten stehenden Code so anpassen das die MsgBox erst erscheint wenn die For-Next-Schleife durchgelaufen ist
Jetzt kommst Du nicht selbst auf die Idee die MsGBox hinter das NEXT zu setzen?
Das SELECT ist total überflüssig!
Du kannst ja den Bereich gleich "Setten"
Option Explicit
Sub DuplicateValuesFromRange()
Dim myRange As Range
Dim myCell As Range
Dim i As Integer
Dim j As Integer
Set myRange = Range("A2:B14")
For Each myCell In myRange
myCell.Interior.ColorIndex = 2
If WorksheetFunction.CountIf(myRange, myCell.Value) > 1 Then
myCell.Interior.ColorIndex = 3
End If
Next
MsgBox ("Stopp!")
End Sub
Und schau Dir mal die Darstellung in eingerückter Form an.
Da ist der Code wesentlich leichter zu lesen als wenn alles linksbündig steht.
Wobei das "Stopp!" ja eigentlich falsch ist. Es müsste ja heißen: "Fertig!"
Userbild
Anzeige
AW: mal zum Nachdenken ...
30.03.2019 15:35:50
Daniel
naja, vermutlich soll die Messagebox anzeigen, dass Duplikate in der Liste vorhanden sind und nicht einfach nur, dass die Schleife vollständig durchgelaufen ist.
Gruß Daniel
wo ist der Unterschied? Frage gelesen?
30.03.2019 15:44:43
Matthias
Du brauchst keinen Gruß senden wenn Du nicht "Hallo" sagen kannst!
Da ich davon ausgehe das es mal wieder der "Daniel Eisert" ist, begreife endlich:
Lass mich in Ruhe !!!
AW: wo ist der Unterschied? Frage gelesen?
30.03.2019 15:59:43
Daniel
Hallo Mattias L
entschuldige, warum soll ich nicht auf deine Beiträge antworten?
wer bist du überhaupt und warum glaubst du mich zu kennen?
warum reagiest du so hart, wenn einfach nur sachlich auf deinen Beitrag antworte?
wenn du so empfindlich bist, und es nicht erträgst, dass man auf deine Beiträge reagiert, dann solltest du vielleicht besser nicht in Foren aktiv sein, denn dort ist so etwas ganz normal und übliches Verhalten in Foren.
Gruß Daniel
Anzeige
meine Frage war: bist Du "Daniel Eisert"
30.03.2019 16:21:49
Matthias
.
hattest du diese Frage gestellt?
30.03.2019 16:41:28
Daniel
ich kann diese Frage in deinem Beitrag nicht finden.
warum ist das für dich so wichtig?
welchen unterschied macht es, ob ein "Daniel Eisert" diesen Beitrag geschrieben hat oder sonst irgendjemand anderes?
wie hättest du reagiert, wenn der Beitrag nicht mit "Daniel" unterschrieben wäre, sondern von jemand danderem?
Gruß Daniel
AW: hattest du diese Frage gestellt?
30.03.2019 16:57:06
Matthias
schon alleine der Satz:
wer bist du überhaupt
lässt vermuten, das Du jemand bist der jeglichen Respekt gegenüber Anderen verloren hat.
Deinen Gruß kannst Du Dir sparen, wenn Du nicht Hallo sagen kannst.
-Ende-
AW: hattest du diese Frage gestellt?
30.03.2019 17:13:43
Daniel
wieviel Respekt muss man gegenüber jedemanden haben, der auf einen sachlichen Beitrag so aggresiv reagiert wie du?
Anzeige
wer war denn aggresiv ? Nur Du !
30.03.2019 17:38:03
Matthias
Was mischst Du Dich ein?
AW: wer war denn aggresiv ? Nur Du !
30.03.2019 20:37:01
Daniel
Hallo?
das ist ein öffentliches Forum und kein privater Chat.
Wer ein Problem damit hat, dass sich andere eine Diskussion einmischen, sollte dieses Medium nicht nutzen.
Was genau an meinem ersten Beitrag hast du denn als Aggressiv empfunden?
Nur das Einmischen alleine oder auch die Inhalte?
Endlos-Diskussion bestätigt DE-Identität! :-] owT
30.03.2019 22:01:22
Luc:-?
:-?
Typischer Luc-Beitrag, von jemanden, der selber
30.03.2019 23:50:22
jemanden,
die Rolle des anonymen Gasts bevorzugt.
Aber eindeutig identifizierbar! owT
31.03.2019 05:21:21
Luc:-?
:-?
Wirklich? owT
31.03.2019 09:34:07
Luc:-?
:-?
HWH löscht solche Typen, wenn man sich beschwert!
31.03.2019 11:13:50
Luc:-?
Luc :-?
Na klar.....owT
31.03.2019 12:56:51
Daniel
AW: mal zum Nachdenken ...
30.03.2019 16:02:59
Martin
Hallo Matthias,
natürlich bin ich auf die Idee gekommen die MsgBox hinter das Next zu setzen, Problem dabei ist das, wenn ich zwei Wertepaare hab die identisch sind muss ich die MsgBox vier mal mit OK bestätigen um diese endültig "wegzudrücken"
MfG
Anzeige
AW: mal zum Nachdenken ...
30.03.2019 16:10:57
Matthias
Hallo Martin
wenn ich zwei Wertepaare hab die identisch sind muss ich die MsgBox vier mal mit OK bestätigen um diese endültig "wegzudrücken"
Wenn die Box hinter der Schleife kommt brauchst Du nicht vier mal mit OK bestätigen,
sondern nur einmal. Außerdem siehst Du es doch an der Hintergrunfarbe der Zellen.
Gruß Matthias
was genau soll dir die Messagebox anzeigen
30.03.2019 16:17:23
Daniel
a) Schleife ist durchgelaufen
b) Achtung, Duplikate vorhanden
ansonsten, das Färben von Duplikaten in einem Zellbereich kannst du auch ohne Makro über die Bedingte Formatierung durchführen.
Seit Excel 2007 ist das möglich.
Gruß Daniel
Anzeige
AW: mal zum Nachdenken ...
30.03.2019 16:06:26
Martin
...stimmt das set ist natürlich die bessere Lösung...
MfG
AW: MsgBox erst nach For-Next-Schleife
31.03.2019 10:46:16
Gerd
Moin Martin!
Sub Duplex_Colors()
Dim C As Range, U As Range
With Range("A2:B14")
.Interior.ColorIndex = 2
For Each C In .Cells
If WorksheetFunction.CountIf(.Cells, C.Value) > 1 Then
If U Is Nothing Then
Set U = C
Else
Set U = Union(U, C)
End If
End If
Next
End With
If U Is Nothing Then
Call MsgBox("nix")
Else
U.Interior.ColorIndex = 3
Set U = Nothing
Call MsgBox("Doppler vorhanden")
End If
End Sub

Gruß Gerd
AW: MsgBox erst nach For-Next-Schleife
31.03.2019 16:00:09
Martin
Hallo Gerd!
Danke für den Lösungsvorschlag!
Das funzt=))
MfG
Martin
Anzeige

301 Forumthreads zu ähnlichen Themen

Zeichenkette per for-next-schleife erstellen
lauer

Hallo,
ich möchte mir eine Zeichenkette erstellen lassen.
Ich habe in einer Zelle (B11) den Anfang (1) angegeben und in der anderen (C11) steht das Ende (49).
Nun möchte ich, dass er mir in der E11 die Zeichenkette reinschreibt.
Also ich möchte dann in E11 stehen haben: 1,2,3,4,...
09.08.2008 19:06:00
Thread-ID: 1000538
5 Beiträge
Anzeige
For Next Schleife - Performance
Christoph

Hallo VBA-Experten!
Bin im VBA-Sektor erst seit 3 Tagen aktiv (Selbsteinschulung :-) ). Habe jetzt aber leider ein rießiges Problem und bitte ganz dringend um Eure Hilfe:
In meinem Bericht (siehe Anhang - https://www.herber.de/bbs/user/62579.zip)
soll folgendes passieren:
Der Be...
19.06.2009 17:54:19
Thread-ID: 1082980
6 Beiträge
Array füllen ohne For...Next-Schleife
Micha

Hallo,
ich möchte einen Array-füllen, ohne eine Schleife benutzen zu müssen, um Zeit zu sparen, d.h. anstatt
For CalcArraycnt = 1 To 30
CalcArray(cnt, CalcArraycnt) = "=PRODUCT(R[-2]C,R[-1]C)"
Next
irgendwas wie
Range(CalcArray(cnt, 1),CalcArray(cnt, 30) = "=PRODUCT(R[...
13.10.2009 12:21:38
Thread-ID: 1109304
6 Beiträge
Anzeige
Sytanx zur ForNext-Schleife
Jörg-HH

Guten Abend zusammen,
habe einen Knoten mit der richtigen Schreibweise...
In einem Blattcode steht:
If Target.Address = Range("Hilfszelle2").Address Then Call machwas2 End If If Target.Address = Range("Hilfszelle3").Address Then Call machwas3 End If usw... bis 5
in einem Modul...
08.12.2009 20:44:25
Thread-ID: 1122490
11 Beiträge
Verschachtelte For Next Schleife zusammenfassen
Illusion

Hi
Ich habe ein Makro, das nach folgendem Schema aufgebaut ist:
Dim i%, j%, k%, Summe% Dim ws As Worksheet Set ws = Worksheets("Liste") For i = 1 to 3 For j = 4 to 6 For k = 7 to 9 Summe= ws.cells(i, 2).value + ws.cells(j, 2).value + ws.cells(k, 2).value Next k Next j Next i
Mein P...
17.12.2009 12:55:13
Thread-ID: 1124631
14 Beiträge
For...Next Schleife anstelle Do until...Loop | Herbers Excel-Forum
Stefan
Hallo zusammen,
ich habe eine Do...Loop Schleife und würde diese gerne durch eine For...Next Schleife ersetzten.
Geht das in diesem Fall überhaupt? Sub loop() Dim iRow As Integer iRow = 5 Do Until Cells(iRow - 1, 1).Value = "x" If IsEmpty(Cells(iRow, 1)) Then End If iRow = iRow + 1 Loop End...
14.01.2010 15:23:09
Thread-ID: 1129973
11 Beiträge
For Next Schleife ?
Leitz

Hallo!
Wie kann ich eine For Next Schleife so ändern, daß sie aufhört sobald die erste Übereinstimmung gefunden wurde?
Oder muß ich da was anders vewenden?
Sub DatumSuche() Dim Datum As Date Datum = Cells(3, 5) 'Testdatum Dim a As Integer For a = 100 To 3 Step -1 If Cells(a, 1).Text...
09.02.2010 18:48:49
Thread-ID: 1137145
13 Beiträge
dynamische For Next Schleife
Steffen

Hallo zusammen,
ich habe eine For next Schleife, der obere Bereich soll hier bei dynamisch sein, da während der Prozedur Zeilen eingefügt werden. Ich habe es mit folgendem Code probiert wobei der obere Bereich auch hochgezählt wird aber die Schleife bei dem Ursprungswert beendet wird.
D...
19.02.2010 12:24:57
Thread-ID: 1139740
6 Beiträge
Anzeige

Links zu Excel-Dialogen

MessageBox

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
4
1
5
5
6
10
13
10
12
5
8
4
6
6
19
6
9
8
16
10
3
7
1
4
7