Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Code wird bei Ausführung nicht der Reihe nach abgearbeitet
zurück: Matrix im VLookup schreiben weiter: Marko für Übernahme in alle TabellenBlätter Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Cythrawl
Kopfsportler


Verfasst am:
12. Jun 2011, 15:26
Rufname:

Code wird bei Ausführung nicht der Reihe nach abgearbeitet - Code wird bei Ausführung nicht der Reihe nach abgearbeitet

Nach oben
       Version: Office 2007

Hallo zusammen.

Ich stehe gerade vor einem äußerst seltsamen Problem.
Und zwar scheint es, als würde mein Makro während der Ausführung den Code nicht der Reihe nach, sondern durcheinander abarbeiten.
Ich habe folgenden Code hinterlegt:
Code:
Private Sub CommandButton1_Click()
On Error Resume Next
With Application
    .EnableEvents = False
    .Calculation = xlCalculationManual
    .StatusBar = True
    .StatusBar = "Beginne Bearbeitung"
End With
Zeit1 = Timer
'------------------------------------------------------------------------------------------------------------------

(etc., etc.)
Code:
'################################################################################################################
'Zuweisen der Kommastellen für Intermediate Precision, Robustness und Reproducibility
ActiveWorkbook.Sheets("Intermediate Precision (V1)").Select
Application.StatusBar = "Bearbeite Tabelle Intermediate Precision (V1)."
    With ActiveSheet
        .Unprotect
            'Kommastellen für Content
            If TextBox15.value > 0 Then
                Range("E6:E454").NumberFormat = "0." & String$(CInt(TextBox15.value), "0")
            Else
                Range("E6:E454").NumberFormat = "0"
            End If
            'Kommastellen für Purity
            If TextBox16.value > 0 Then
                Range("F6:L454").NumberFormat = "0." & String$(CInt(TextBox16.value), "0")
            Else
                Range("F6:L454").NumberFormat = "0"
            End If
            'Kommastellen für RSD
            If TextBox17.value > 0 Then
                Range("E455:L456").NumberFormat = "0." & String$(CInt(TextBox17.value), "0")
                For Each rc In Range("D27:D447")
                    If rc = ("RSD") Then
                        Range(rc, rc.Offset(4, 8)).NumberFormat = "0." & String$(CInt(TextBox17.value), "0")
                    End If
                Next rc
            Else
                Range("E455:L456").NumberFormat = "0"
                For Each rc In Range("D27:D447")
                    If rc = ("RSD") Then
                        Range(rc, rc.Offset(4, 8)).NumberFormat = "0"
                    End If
                Next rc
            End If
        .Protect
    End With
'--------------------------------------------------------------------------------------------------------------
ActiveWorkbook.Sheets("Intermediate Precision (V2)").Select
Application.StatusBar = "Bearbeite Tabelle Intermediate Precision (V2)."
    With ActiveSheet
        .Unprotect
            'Kommastellen für Content
            If TextBox15.value > 0 Then
                Range("F6:F406").NumberFormat = "0." & String$(CInt(TextBox15.value), "0")
            Else
                Range("F6:F406").NumberFormat = "0"
            End If
            'Kommastellen für Purity
            If TextBox16.value > 0 Then
                Range("G6:M406").NumberFormat = "0." & String$(CInt(TextBox16.value), "0")
            Else
                Range("G6M406").NumberFormat = "0"
            End If
            'Kommastellen für RSD
            If TextBox17.value > 0 Then
                Range("F407:M408").NumberFormat = "0." & String$(CInt(TextBox17.value), "0")
                For Each rc In Range("E24:E399")
                    If rc = ("RSD") Then
                        Range(rc, rc.Offset(4, 8)).NumberFormat = "0." & String$(CInt(TextBox17.value), "0")
                    End If
                Next rc
            Else
                Range("F407:M408").NumberFormat = "0"
                For Each rc In Range("E24:E399")
                    If rc = ("RSD") Then
                        Range(rc, rc.Offset(4, 8)).NumberFormat = "0"
                    End If
                Next rc
            End If
        .Protect
    End With
'-------------------------------------------
ActiveWorkbook.Sheets("Intermediate Precision (JAP)").Select
Application.StatusBar = "Bearbeite Tabelle Intermediate Precision (JAP)."
    With ActiveSheet
        .Unprotect
            'Kommastellen für Content
            If TextBox15.value > 0 Then
                Range("H650:H653").NumberFormat = "0." & String$(CInt(TextBox15.value), "0")
                For Each rc In Range("H9:H611")
                    If rc = ("Content [mg/mL]") Then
                        Range(rc, rc.Offset(20, 0)).NumberFormat = "0." & String$(CInt(TextBox15.value), "0")
                    End If
                Next rc
                For Each rc In Range("G9:G611")
                    If rc = ("AK SD") Then
                        Range(rc, rc.Offset(3, 1)).NumberFormat = "0." & String$(CInt(TextBox15.value), "0")
                    End If
                Next rc
            Else
                Range("H650:H653").NumberFormat = "0"
                For Each rc In Range("H9:H611")
                    If rc = ("Content [mg/mL]") Then
                        Range(rc, rc.Offset(20, 0)).NumberFormat = "0"
                    End If
                Next rc
                For Each rc In Range("G9:G611")
                    If rc = ("AK SD") Then
                        Range(rc, rc.Offset(3, 1)).NumberFormat = "0"
                    End If
                Next rc
            End If
            'Kommastellen für Purity
            If TextBox16.value > 0 Then
                Range("I650:O653").NumberFormat = "0." & String$(CInt(TextBox16.value), "0")
                For Each rc In Range("I9:I611")
                    If rc = ("Main peak purity [%]") Then
                        Range(rc, rc.Offset(20, 6)).NumberFormat = "0." & String$(CInt(TextBox16.value), "0")
                    End If
                Next rc
                For Each rc In Range("G9:G611")
                    If rc = ("AK SD") Then
                        Range(rc.Offset(0, 2), rc.Offset(3, 8)).NumberFormat = "0." & String$(CInt(TextBox16.value), "0")
                    End If
                Next rc
            Else
                Range("I650:O653").NumberFormat = "0"
                For Each rc In Range("I9:I611")
                    If rc = ("Main peak purity [%]") Then
                        Range(rc, rc.Offset(20, 6)).NumberFormat = "0"
                    End If
                Next rc
                For Each rc In Range("G9:G611")
                    If rc = ("AK SD") Then
                        Range(rc.Offset(0, 2), rc.Offset(3, 8)).NumberFormat = "0"
                    End If
                Next rc
            End If
            'Kommastellen für RSD
            If TextBox17.value > 0 Then
                Range("H656:O659").NumberFormat = "0." & String$(CInt(TextBox17.value), "0")
                For Each rc In Range("G6:G640")
                    If InStr(1, rc, "RSD", 1) Then
                        Range(rc, rc.Offset(0, 8)).NumberFormat = "0." & String$(CInt(TextBox17.value), "0")
                    End If
                    If rc = ("AK RSD") Then
                        Range(rc, rc.Offset(3, 8)).NumberFormat = "0." & String$(CInt(TextBox17.value), "0")
                    End If
                Next rc
            Else
                Range("H656:O659").NumberFormat = "0"
                For Each rc In Range("G6:G640")
                    If InStr(1, rc, "RSD", 1) Then
                        Range(rc, rc.Offset(0, 8)).NumberFormat = "0"
                    End If
                    If rc = ("AK RSD") Then
                        Range(rc, rc.Offset(3, 8)).NumberFormat = "0"
                    End If
                Next rc
            End If
        .Protect
    End With

Für die ersten zwei Blätter funktioniert das alles auch wunderbar, allerdings wird für das dritte Blatt wieder der Code des ersten ausgeführt. Question
Wenn ich nur den Code des dritten Blattes laufen lasse, funktioniert ebenfalls alles prima. Ich habe auch schon diverse andere Methoden ausprobiert um das Blatt anzusprechen, immer mit dem gleichen Ergebnis.

Hat irgendjemand eine Ahnung woran das liegen kann?

Danke
Cythrawl
Kopfsportler


Verfasst am:
12. Jun 2011, 15:53
Rufname:


AW: Code wird bei Ausführung nicht der Reihe nach abgearbeit - AW: Code wird bei Ausführung nicht der Reihe nach abgearbeit

Nach oben
       Version: Office 2007

Okay, das Ganze wird immer eigenartiger, aber vielleicht ist es für die Kenner ein zusätzlicher Hinweis:
In besagtem Problemblatt werden durch andere Makros Zeilen und Spalten eingeblendet, je nachdem welche Werte in ihm eingegeben werden.
Sind diese ausgeblendet, so scheint das gepostete Makro in diesem Blatt überhaupt nichts zu machen
r.mueller
Gast


Verfasst am:
12. Jun 2011, 17:32
Rufname:

AW: Code wird bei Ausführung nicht der Reihe nach abgearbeit - AW: Code wird bei Ausführung nicht der Reihe nach abgearbeit

Nach oben
       Version: Office 2007

Hallo

Was hällst davon deinen Code mal im Schrittmodus auszuführen
und ggf. vorher Haltepunkte zu setzen
da kannst genau sehen was da in welcher Reihenfolge ausgeführt wird.

Hast in der Mappe ggf. auch Ereignisproceduren drin?

Gruß
r.mueller
Cythrawl
Kopfsportler


Verfasst am:
12. Jun 2011, 17:42
Rufname:


AW: Code wird bei Ausführung nicht der Reihe nach abgearbeit - AW: Code wird bei Ausführung nicht der Reihe nach abgearbeit

Nach oben
       Version: Office 2007

Danke für den Tipp, aber es hat sich vorerst erledigt.
Nach kleinen Änderungen bewirkt der Code aktuell nichts. Vielleicht löst sich das Problem im Zuge der Fehlersuche.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Excel-Funktion: Folge, Reihe, bzw. Zahlenbereich 14 Uta23 1889 21. Sep 2011, 21:15
BoskoBiati Excel-Funktion: Folge, Reihe, bzw. Zahlenbereich
Keine neuen Beiträge Excel Formeln: Gegenteil von code() 3 Qwertzuiop 488 26. Aug 2011, 17:22
Gast Gegenteil von code()
Keine neuen Beiträge Excel Formeln: Vorletzter Wert einer Reihe übernehmen 6 Medix 1026 31. Jan 2011, 12:40
Medix Vorletzter Wert einer Reihe übernehmen
Keine neuen Beiträge Excel Formeln: Suche Formel für Arithmetische Reihe 6 Zeon 2875 24. Jan 2011, 23:14
Senad Suche Formel für Arithmetische Reihe
Keine neuen Beiträge Excel Formeln: Auto-Vervollständigung (reihe auffüllen) mit formel 5 centax 708 24. Jan 2011, 20:21
neopa Auto-Vervollständigung (reihe auffüllen) mit formel
Keine neuen Beiträge Excel Formeln: Worksheet.Function.Average bei Variablen im VBA Code 0 Jwk 1210 23. Jan 2011, 15:47
Jwk Worksheet.Function.Average bei Variablen im VBA Code
Keine neuen Beiträge Excel Formeln: Formel zur Ermittlung des Prüfziffer für EAN Code 12 9 shark1 11088 22. Nov 2010, 22:58
FP Formel zur Ermittlung des Prüfziffer für EAN Code 12
Keine neuen Beiträge Excel Formeln: Leere Reihen mit Werte der Reihe darüber füllen 2 Klemens 905 16. Okt 2010, 12:20
Klemens Leere Reihen mit Werte der Reihe darüber füllen
Keine neuen Beiträge Excel Formeln: Reihe suchen und dann Zählen 6 der-anton 172 14. Okt 2010, 19:56
Gast Reihe suchen und dann Zählen
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Farbumschlag über Code (ALT+11) formatieren 2 Viper85 896 24. Sep 2010, 08:33
Thomas Ramel Farbumschlag über Code (ALT+11) formatieren
Keine neuen Beiträge Excel Formeln: Werte pro Reihe zählen 7 Uppercut 580 28. Mai 2010, 18:12
urs Werte pro Reihe zählen
Keine neuen Beiträge Excel Formeln: Suchen aus aufsteigend geordneter Reihe 5 bernie007 493 21. Apr 2010, 11:23
Bernie007 Suchen aus aufsteigend geordneter Reihe
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Frontpage Forum