Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
704to708
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
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MsgBox kommt 2x in VBA

MsgBox kommt 2x in VBA
12.12.2005 08:43:37
Thomas
Guten Morgen
Ich hab mal wieder ein Problem. Ich habe eine Routine, die eine Reihe von Zellen mit Werten füllt. Am Ende möchte ich eine MsgBox anzeigen lassen, das dieser Vorgang abgeschlossen ist. Das funktioniert auch, nur wenn ich den Ok-Button der MsgBox anklicke, wird die Routine nochmal durchlaufen und ich bekomme die MsgBox nochmal angezeigt. was mach ich falsch?
MsgBox "Ausführung beendet."
Gruß Thomas

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

Betreff
Datum
Anwender
Anzeige
AW: MsgBox kommt 2x in VBA
12.12.2005 08:46:16
Hajo_Zi
Hallo Thomas,
der Fehler ist in Zeile 7.
Eine Lösung kann gepostet werden falls Du den kompletten Code postet. Ich konnte nun nur Zeile 7 finden.


AW: MsgBox kommt 2x in VBA
12.12.2005 08:50:17
Thomas
Hallo Hajo
&ltpre&gt
Sub Sonder_Schicht_Change(auswahl As String)
Dim kw, atag, wo, ncol, frow, ftag As Long
If auswahl = "T" Or auswahl = "F" Then
For kw = 0 To 26
For atag = 0 To 4
ncol = 5 + kw * 7 + atag
ftag = 0
For frow = 0 To 9
If Worksheets("2Halbjahr").Cells(3, ncol).Value = Worksheets("2Halbjahr").Range("C" & 50 + frow).Value Then ftag = 1
Next frow
If ftag = 0 Then
Worksheets("2Halbjahr").Cells(32, ncol).Value = auswahl
End If
Next atag
For wo = 5 To 6
Worksheets("2Halbjahr").Cells(32, 10 + kw * 7 + wo).Value = ""
Next wo
Next kw
End If
MsgBox "Ausführung beendet." 'Meldung anzeigen.
End Sub&lt/pre&gt
Gruß Thomas
Anzeige
AW: MsgBox kommt 2x in VBA
12.12.2005 09:01:03
Hajo_Zi
Hallo Thomas,
an Deinem code fällt mir nur folgendes auf:
es ist nur ftag als Long definiert, alle anderen als Variant
Ich sehe kein Grund warum die Msgbox 2x kommt. Bei so speziellen Code hättest Du mal die Datei hochladen sollen. ich vermute mal der Code steht nicht in einem Modul?
Gruß Hajo

305 Forumthreads zu ähnlichen Themen

Darstellung von Variablen in Textfeldern von Grafi
Variablen

Ich habe in einer EXCEL-Anwendung mehrere Grafiken mit eingefügten Textfeldern. Die Inhalte der Textfelder wurden bisher manuell erfasst. Besteht eine Möglichkeit, die Textfelder mit den Inhalten von Zellen aus der EXCEL-Anwendung zu verknüpfen? Mein Wunsch ist, in Zukunft bei Aktualisierung de...
06.10.2008 18:22:00
Thread-ID: 1014516
5 Beiträge
Anzeige
Variablen in Textfile schreiben, getrennt durch ta
Siggi

Hallo,
ich möchte Variablen mit Hilfe der "writeline" Befehls in eine Textdatei schreiben. Funktioniert soweit auch gut. Leider werden die einzelnen Werte die ich in eine Zeile schreibe direkt aneinander gereiht. Ist es möglich diese durch einen Tabstop zu trennen?
Der folgende Code ist...
31.10.2008 17:56:05
Thread-ID: 1020933
3 Beiträge
OpenText FieldInfo variabler array
Siggi

Hallo zusammen,
ich habe eine Textdatei die ich in Excel auslesen möchte. Zum Import nutze ich momentan die Opentext Methode. Anschließend lese ich die Werte des erzeugten Arbeitsblatts in ein Array ein um dann wiederum bestimmte Werte in eine Textdatei zu schreiben.
Workbooks.OpenText...
14.11.2008 18:56:29
Thread-ID: 1024682
2 Beiträge
Anzeige
VBA Abspeichern in variablen Ordner
Danomat

Hi,
folgendes Problem
In Zelle C1 steht der aktuelle Monat. Nun möchte ich die Datei als PDF abspeichern:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf" _
, Quality:=xlQualityStandard, IncludeDo...
13.03.2009 12:37:34
Thread-ID: 1059831
10 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
UF->TextBox -> Eingabewerte in Variablen speichern
Best4you

Hallo,
in einem UserForm gebe ich ein Angangsdatum und ein Enddatum in zwei verschiedene Textfelder ein.
Nun möchte ich, die Nettoarbeitstage ausrechnen und im selbigen UF anzeigen lassen.
Ich weiß nur nicht, wie ich die eingegebenen Werte der TextBoxen in Variablen speichere, dami...
17.05.2009 16:35:25
Thread-ID: 1075704
6 Beiträge
VBA - Hilfetexte für Funktionen wie MsgBox, InputB
Stefan

Hallo zusammen,
gibt es eine einfache Möglichkeit, in VBA Hilfetexte (welche ruhig einfachen Textfiles o.ä. entsprechen können) für Funktionen wie MsgBox, InputBox etc. zu hinterlegen?
Danke vorab und Gruß.
Stefan
12.06.2009 09:41:53
Thread-ID: 1080899
2 Beiträge
Variable Liste in VBA
Diana

Liebes Forum,
ich habe ein Problem. Ich lese mit einem VBA-Makro Messwerte aus. Diese Messwerte werden über einen Namen auf einem anderen Rechner angesprochen. Derzeit gebe ich diese Namen (Adressen) direkt in das Makro ein.
strSQL = "SELECT k055z02_0.Zeit, k055z02_0.A00100001, ..., .....
14.08.2009 14:59:47
Thread-ID: 1096000
4 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
4
7
2
1
4
9
2
5
1
3
2
3
16
10
4
2
6
6
4
4
2
1
6
9
2