Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Zelle nach bestimmten Wert überprüfen klappt nicht
zurück: Druckbereich - Problem bei der Umstellung zu 2010 weiter: Listbox ohne Doppeleinträge & Anzahl Doppeleinträge 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
TomWitt
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Apr 2013, 11:08
Rufname:

Zelle nach bestimmten Wert überprüfen klappt nicht - Zelle nach bestimmten Wert überprüfen klappt nicht

Nach oben
       Version: Office 2010

Hallo Zusammen


Mit diesem Code hol ich mir die Ordnergrößen der Unterordner, wandle um von Bytes in GB und formatiere die Zelle mit 2 NK-Stellen.
Code:

 For Each Unterordner In ordner.subfolders
            zaehler = zaehler + 1
            Cells(zaehler, 1) = Unterordner.Path
            Cells(zaehler, 2) = Unterordner.Size / 1024 ^ 3
            Columns.NumberFormat = "0.00"
        Next



und mit diesem Code wollte ich eigentlich die Zellen in Spalte 2 nach Werten die größer als "25" sind überprüfen und diese dann rot einfärben. Leider wird nicht immer das eingefärbt, was eingefärbt werden soll.

Da stellt sich mir die Frage, was sind diese "25" denn nun? Sucht dieser Code nach Werten die größer als 25( durch die Formatierung mit 2NK-stellen steht ja nur noch 25,00 in der Zelle) oder durchsucht der Code wirklich das, was in der Zelle steht. Also die Bytes?

Beispiel:
in B2 steht 175,00 und der tatsächliche Wert ist 175,104375801049. Diese Zelle wird nicht rot eingefärbt, obwohl 175 ja größer als 25 ist

in B3 steht 0,06 und der tatsächlich Wert ist 0,0604016166180372. Diese Zelle wird rot eingefärbt.

was mach ich falsch. Eigentlich sollte doch B2 rot sein und nicht B3


Code:

Dim zeile As Long
Dim zeilemax As Long
zeilemax = Worksheets("Tabelle1").Cells(Worksheets("Tabelle1").Rows.Count, 1).End(xlUp).Row
 For zeile = 2 To zeilemax
            If Cells(zeile, 2).Value > "25" Then
                Cells(zeile, 2).Interior.ColorIndex = 3
            Else
                Cells(zeile, 2).Interior.ColorIndex = xlColorIndexNone
            End If
         Next zeile


Tom
Isabelle :-)
Menschin


Verfasst am:
29. Apr 2013, 11:18
Rufname:
Wohnort: Westlicher Spiralarm der Galaxis


AW: Zelle nach bestimmten Wert überprüfen klappt nicht - AW: Zelle nach bestimmten Wert überprüfen klappt nicht

Nach oben
       Version: Office 2010

Hallöchen,

warum vergleichst du eine Zahl mit einer Zeichenkette?

If Cells(zeile, 2).Value > "25" Then

einfach so:

If Cells(zeile, 2).Value > 25 Then

_________________
LG Isi

Die Mitgliedschaft im Forum erhöht deine Chance auf eine Antwort von mir um 99,999%
TomWitt
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Apr 2013, 11:37
Rufname:

AW: Zelle nach bestimmten Wert überprüfen klappt nicht - AW: Zelle nach bestimmten Wert überprüfen klappt nicht

Nach oben
       Version: Office 2010

Mensch war das einfach. Vielen Dank.


Leider hab ich bemerkt, dass mein Code zum Auslesen der Unterordner doch nicht so funktioniert, wie ich es mir wünsche.

mit dem Code such ich die Oberordner von denen dann die Unterordner ausgelesen werden
Code:

With objShell
    Set objFolder = .BrowseForFolder(0&, "Bitte einen Ordner auswählen", 0)
End With
If Not objFolder Is Nothing Then
    zaehler = 1
    Set objItem = objFolder.Self
    Cells(zaehler, 1) = objItem.Path
    Else: Exit Sub
End If


ich möchte jetzt aber nicht einen Ordner im Netzwerk angeben, sondern das Netzwerk selber.
komme hier nicht weiter

bisher
\\Netzwerk_xy\orndername
so soll es sein
\\Netzwerk\

aber über den browseforfolder_dialog kann ich kein Netzwerk auswählen, sondern nur einen Ordner. Sagt ja der Dialog auch schon. wie lese ich ein Netzwek aus?

Tom
Isabelle :-)
Menschin


Verfasst am:
29. Apr 2013, 11:51
Rufname:
Wohnort: Westlicher Spiralarm der Galaxis

AW: Zelle nach bestimmten Wert überprüfen klappt nicht - AW: Zelle nach bestimmten Wert überprüfen klappt nicht

Nach oben
       Version: Office 2010

Hallöchen,

das hat ja nun mit deiner 1. Frage so gar nichts zu tun. Erstell dazu bitte einen eigenen Thread. Wobei ich gleich sagen muss, seit Windows Vista ist es nicht mehr möglich in dem Dialog virtuelle Ordner (Netzwerk / Computer ...) direkt anzusteuern.

_________________
LG Isi

Die Mitgliedschaft im Forum erhöht deine Chance auf eine Antwort von mir um 99,999%
TomWitt
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Apr 2013, 11:59
Rufname:


AW: Zelle nach bestimmten Wert überprüfen klappt nicht - AW: Zelle nach bestimmten Wert überprüfen klappt nicht

Nach oben
       Version: Office 2010

Ok,

ich mach gleich einen eigenen Thread.

Danke
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: Anzahl der Wörter in einer Zelle auslesen 5 Gast 2502 28. Jul 2010, 11:51
FP Anzahl der Wörter in einer Zelle auslesen
Keine neuen Beiträge Excel Formeln: Text in Zelle aufteilen 21 ilo 3205 07. Okt 2009, 10:48
Ragnok Text in Zelle aufteilen
Keine neuen Beiträge Excel Formeln: zu Zelle mit gesuchtem Datum (vom user einzugeben) springen 2 Heikchen 3711 09. Aug 2006, 12:19
doobie zu Zelle mit gesuchtem Datum (vom user einzugeben) springen
Keine neuen Beiträge Excel Formeln: Formatierung Zelle ( Formel ) 5 Gast 1347 01. Sep 2004, 13:19
ae Formatierung Zelle ( Formel )
Keine neuen Beiträge Excel Formeln: Formatierung einer anderen Zelle wenn in der einen ein Text 2 Gast 5007 01. Sep 2004, 11:04
Gast Formatierung einer anderen Zelle wenn in der einen ein Text
Keine neuen Beiträge Excel Formeln: übernehmen von werten in eine andere zelle 6 Gast 3717 21. Aug 2004, 18:38
alex81 übernehmen von werten in eine andere zelle
Keine neuen Beiträge Excel Formeln: Prüfung, ob in bestimmten Zellen Daten eingetragen wurden 2 AlPa 2490 12. Aug 2004, 15:59
lala Prüfung, ob in bestimmten Zellen Daten eingetragen wurden
Keine neuen Beiträge Excel Formeln: Suche Zelle nach einem ähnlichem Wert ab... (wildcart) 2 Ranzi 2538 09. Aug 2004, 18:22
icke Suche Zelle nach einem ähnlichem Wert ab... (wildcart)
Keine neuen Beiträge Excel Formeln: Formelbezug auf Zelle in einzufügender Spalte... 1 UAN 2077 25. Jul 2004, 16:36
fl618 Formelbezug auf Zelle in einzufügender Spalte...
Keine neuen Beiträge Excel Formeln: 2 kl. Probleme - Datum verketten/Zelle nur bis z. Komma... 4 Mario 3176 21. Jul 2004, 13:07
ae 2 kl. Probleme - Datum verketten/Zelle nur bis z. Komma...
Keine neuen Beiträge Excel Formeln: Wenn in Spalte A der Wert .... dann die Felder in Spalte B 3 mucky 2520 16. Jul 2004, 08:06
mucky Wenn in Spalte A der Wert .... dann die Felder in Spalte B
Keine neuen Beiträge Excel Formeln: zahlen addieren die einer bestimmten klasse angehören 2 Michi21 1067 28. Mai 2004, 06:31
Thomas Ramel zahlen addieren die einer bestimmten klasse angehören
 

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