Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Ausgeblendeten Spalten Format zuweisen?
zurück: Tabelle durchsuchen weiter: aktuelles Datum suchen 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, 16:39
Rufname:

Ausgeblendeten Spalten Format zuweisen? - Ausgeblendeten Spalten Format zuweisen?

Nach oben
       Version: Office 2007

Ich dreh langsam durch.
Von jetzt auf gleich funktionieren meine Makros nicht mehr.
Plötzlich funktionieren Codes wie
Code:
    With Worksheets("Verdünnungen - fix. Inj.Vol.")
        .Unprotect
            'Kommastellen für Content
            If TextBox1.value > 0 Then
                Range("H6:H56").NumberFormat = "0." & String$(CInt(TextBox1.value), "0")
                Range("K6:K56").NumberFormat = "0." & String$(CInt(TextBox1.value), "0")

nicht mehr, da VBA auf die darin angesprochenen ausgeblendeten Zellen nicht mehr zugreifen kann. Wurde vor Monaten getestet und funktionierte, jetzt geht nichts mehr.
Hat jemand eine Alternative wie ich die Zellen ansprechen kann ohne sie ein- und wieder auszublenden?

Danke
ransi
Für den Hausgebrauch reicht's..


Verfasst am:
12. Jun 2011, 16:50
Rufname:
Wohnort: Im schönen Weserbergland


AW: Ausgeblendeten Spalten Format zuweisen? - AW: Ausgeblendeten Spalten Format zuweisen?

Nach oben
       Version: Office 2007

HAllo

Ich denke du bist auf dem falschen Blatt.
In deiner With-Struktur fehlen einige Punkte.

Code:
.Range("H6:H56").NumberFormat = "0." & String$(CInt(TextBox1.value), "0")
                .Range("K6:K56").NumberFormat = "0." & String$(CInt(TextBox1.value), "0")


Mach die mal rein teste nochmal.

ransi

_________________
Let there be light, sound, drums, 'n guitar
Let there be rock
...
And the music was good
Cythrawl
Kopfsportler


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

AW: Ausgeblendeten Spalten Format zuweisen? - AW: Ausgeblendeten Spalten Format zuweisen?

Nach oben
       Version: Office 2007

der Teufel im Detail Rolling Eyes
Danke.
Ich finde es nur seltsam, dass das schon mal funktioniert hat....
slowboarder
Im Profil kannst Du frei den Rang ändern


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

AW: Ausgeblendeten Spalten Format zuweisen? - AW: Ausgeblendeten Spalten Format zuweisen?

Nach oben
       Version: Office 2007

Hi
wenn das Blatt, daß du bei WITH definiert hast, zufällig während dem Test aktiv war, dann funktionierts natürlich problemlos ohne die Punkte.
Der Fehler tritt erst dann auf, wenn mal ein anderes Blatt aktiv ist.
(ist tückisch, denn wenn man im Einzelstep tested, dann aktiviert man normalerwieise auch das Blatt, auf dem gerade was passieren soll).

Gruß, Daniel
Cythrawl
Kopfsportler


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


AW: Ausgeblendeten Spalten Format zuweisen? - AW: Ausgeblendeten Spalten Format zuweisen?

Nach oben
       Version: Office 2007

Warum folgender Code kein Ergebnis, aber auch keine Fehlermeldung liefert ist mir trotzdem noch ein Rätsel
Code:
Application.StatusBar = "Bearbeite Tabelle Intermediate Precision (JAP)."
    With Worksheets("Intermediate Precision (JAP)")
        .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 InStr(1, rc, "mg/mL", 1) 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
slowboarder
Im Profil kannst Du frei den Rang ändern


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

AW: Ausgeblendeten Spalten Format zuweisen? - AW: Ausgeblendeten Spalten Format zuweisen?

Nach oben
       Version: Office 2007

Hi
bei so längeren Codeabschnitten ist es schwierig, den Fehler einfach mit Durchlesen zu finden.
Bei Komplexen Programmen muss die Ursache ja auch nicht zwangsläufig im Code liegen.
Eine lauffägige Beispieldatei mit dem Fehlerhaften Code drin, wo man rumspielen und vorallem im Einzelstep testen kann, wäre hilfreich.

gruß, Daniel
Cythrawl
Kopfsportler


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

AW: Ausgeblendeten Spalten Format zuweisen? - AW: Ausgeblendeten Spalten Format zuweisen?

Nach oben
       Version: Office 2007

Hab's eh schon in einem anderen Thread erwähnt, "standalone" funktioniert der Code tadellos, nur in Kombination mit dem riesigen Userform mag er nicht mehr.


Val- Proj_build.xlsm
 Beschreibung:

Download
 Dateiname:  Val- Proj_build.xlsm
 Dateigröße:  1.58 MB
 Heruntergeladen:  49 mal

ransi
Für den Hausgebrauch reicht's..


Verfasst am:
12. Jun 2011, 17:22
Rufname:
Wohnort: Im schönen Weserbergland

AW: Ausgeblendeten Spalten Format zuweisen? - AW: Ausgeblendeten Spalten Format zuweisen?

Nach oben
       Version: Office 2007

HAllo

Hm...
Code:

With Worksheets("Intermediate Precision (JAP)")
.
.
.
For Each rc In PUNKTRange("G9:G611")
.
.
.
end with

????
ransi

_________________
Let there be light, sound, drums, 'n guitar
Let there be rock
...
And the music was good
Cythrawl
Kopfsportler


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

AW: Ausgeblendeten Spalten Format zuweisen? - AW: Ausgeblendeten Spalten Format zuweisen?

Nach oben
       Version: Office 2007

Userform 11 funktioniert nicht, Userform 1 läuft ohne Probleme.
Cythrawl
Kopfsportler


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

AW: Ausgeblendeten Spalten Format zuweisen? - AW: Ausgeblendeten Spalten Format zuweisen?

Nach oben
       Version: Office 2007

Rolling Eyes langsam wirds peinlich...
Liegt wohl daran, dass ich ursprünglich ein Select drin hatte, welches ich gelöscht habe.

aber jetzt hängt er sich beim "rc=" auf. "Typen unverträglich"
slowboarder
Im Profil kannst Du frei den Rang ändern


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

AW: Ausgeblendeten Spalten Format zuweisen? - AW: Ausgeblendeten Spalten Format zuweisen?

Nach oben
       Version: Office 2007

Hi
sorry, was soll das?
geschützter Code und kein Passwort dazu, wie stelltst du dir vor, daß wir da den Fehler finden können?
außedem, bei so komplexen Anwendungen, die nicht selbsterklärend sind, wäre ne kleine Beschreibung, wie das ganze funktioniert und was man tun muss, um den Fehler zu erzeugen, ganz hilfreich.

Gruß, Daniel
Cythrawl
Kopfsportler


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

AW: Ausgeblendeten Spalten Format zuweisen? - AW: Ausgeblendeten Spalten Format zuweisen?

Nach oben
       Version: Office 2007

Sorry, vergess immer auf das Passwort. HPLC
Im Reiter Allgemein auf Start klicke. Startet Userform11. Dieses sollte dann die eingegebenen Werte in die Formatierung der entsprechenden Blätter übernehmen. Funktioniert auch ganz gut, bis eben auf Intermediate Precision (JAP).
Der selbe Code ist im Userform 1 hinterlegt, und funktioniert.

Fehler tritt momentan in Zeile 620 auf
Gast



Verfasst am:
12. Jun 2011, 18:23
Rufname:


AW: Ausgeblendeten Spalten Format zuweisen? - AW: Ausgeblendeten Spalten Format zuweisen?

Nach oben
       Version: Office 2007

Mit rc.text hat sich das Problem gelöst.
Rennt momentan alles problemlos.
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: Zählen von Einträgen in Zeilen oder Spalten 3 ggaribaldi 1657 27. Jul 2005, 09:23
steve1da Zählen von Einträgen in Zeilen oder Spalten
Keine neuen Beiträge Excel Formeln: Sotierung einer Tabelle nach mehreren Spalten 3 Mentor 1566 14. Jul 2005, 14:42
Gast Sotierung einer Tabelle nach mehreren Spalten
Keine neuen Beiträge Excel Formeln: mit sverweis spalten verbinden die nicht nebeneinander sind 2 poison30 4378 20. Mai 2005, 14:18
poison30 mit sverweis spalten verbinden die nicht nebeneinander sind
Keine neuen Beiträge Excel Formeln: Hilfe bei Spalten auslesen 4 Puni 754 05. Apr 2005, 10:03
Puni Hilfe bei Spalten auslesen
Keine neuen Beiträge Excel Formeln: Klassen zuweisen 2 BernhardK 1582 10. März 2005, 07:29
BernhardK Klassen zuweisen
Keine neuen Beiträge Excel Formeln: Max. Anzahl von benutzten Spalten und Zeilen ermitteln 2 Fire 2461 01. Feb 2005, 11:14
Fire Max. Anzahl von benutzten Spalten und Zeilen ermitteln
Keine neuen Beiträge Excel Formeln: Spalten Sortieren 23 Fireball8 3108 07. Jan 2005, 18:40
fridgenep Spalten Sortieren
Keine neuen Beiträge Excel Formeln: Erster Wert aus mehreren Spalten 4 Gast 1922 03. Dez 2004, 10:52
Arnim Erster Wert aus mehreren Spalten
Keine neuen Beiträge Excel Formeln: Stunden und Minuten aus dem Format 01:30 getrennt ausgeben 4 Neue 2323 23. Nov 2004, 15:30
Neue Stunden und Minuten aus dem Format 01:30 getrennt ausgeben
Keine neuen Beiträge Excel Formeln: Verknüpfen von Daten in verschiedenen Zeilen/Spalten 2 Guybrush Treepwood 3197 29. Okt 2004, 09:18
Guybrush Treepwood Verknüpfen von Daten in verschiedenen Zeilen/Spalten
Keine neuen Beiträge Excel Formeln: Druckbereich:nur einzelne Spalten als Druckbereich markieren 3 mufty001 1912 21. Okt 2004, 09:24
mufty001 Druckbereich:nur einzelne Spalten als Druckbereich markieren
Keine neuen Beiträge Excel Formeln: gegeben 2 Spalten/ ges. wie oft Wert aus Spalte 1 mit Wert a 4 Stefan B. 1310 21. Okt 2004, 08:06
Stefan B. gegeben 2 Spalten/ ges. wie oft Wert aus Spalte 1 mit Wert a
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln