Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1076to1080
1076to1080
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wo ist der Fehler?

Forumthread: Wo ist der Fehler?

Wo ist der Fehler?
21.05.2009 14:51:53
Jay
Hallo,
ich bin noch nicht so bewandert mit Schleifen, habe vesucht ein Textfeld einzublenden, falls folgende Zellenwerte Null sind, das klappt aber leider nicht, ist da vielleicht ein Fehler drin?
If Worksheets("Tabelle1").Cells(10, 11) = "0" Then
If Worksheets("Tabelle1").Cells(11, 11) = "0" Then
If Worksheets("Tabelle1").Cells(10, 12) = "0" Then
If Worksheets("Tabelle1").Cells(11, 12) = "0" Then
If Worksheets("Tabelle1").Cells(10, 13) = "0" Then
If Worksheets("Tabelle1").Cells(11, 13) = "0" Then
If Worksheets("Tabelle1").Cells(10, 16) = "0" Then
If Worksheets("Tabelle1").Cells(11, 16) = "0" Then
Worksheets("Tabelle2").Shapes("Textfeld 1").Visible = True
Else
Worksheets("Tabelle2").Shapes("Textfeld 1").Visible = False
End If
End If
End If
End If
End If
End If
End If
End If
Grüße, Jay
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wo ist der Fehler?
21.05.2009 14:59:30
Hajo_Zi
Hallo Jay,
vielleicht solltest Du nich "0" schreiben sondern 0

If Then Or ....
21.05.2009 15:04:36
{Boris}
Hi Jay,
dafür gibt´s auch ODER (Or) (bzw. UND = And, wenn alle erfüllt sein müssen):

Option Explicit
Sub til()
With Worksheets("Tabelle1")
If .Cells(10, 11) = 0 Or _
.Cells(11, 11) = 0 Or _
.Cells(10, 12) = 0 Or _
.Cells(11, 12) = 0 Or _
.Cells(10, 13) = 0 Or _
.Cells(11, 13) = 0 Or _
.Cells(10, 16) = 0 Or _
.Cells(11, 16) = 0 Then
Worksheets("Tabelle2").Shapes("Textfeld 1").Visible = True
Else
Worksheets("Tabelle2").Shapes("Textfeld 1").Visible = False
End If
End With
End Sub


Hab den Code jetzt bewusst nicht noch weiter eingedampft, um Dich nicht mehr als nötig zu verwirren. ;-)
Grüße Boris

Anzeige
AW: If Then Or ....
21.05.2009 16:30:37
Gerd
Hallo Jay,
wenn 0 oder leere Zellen zum selben Ergebnis führen sollen: 

Sub t()
With Worksheets("Tabelle1")
Worksheets("Tabelle2").Shapes("Textfeld 1").Visible = _
Application.WorksheetFunction.Product _
(Union(.Range(.Cells(10, 11), .Cells(11, 13)), _
.Range(.Cells(10, 16), .Cells(11, 16)))) = 0
End With
End Sub


Gruß Gerd

Anzeige
AW: Verwechlung Zahl-Zeichen oder Logik-Fehler
21.05.2009 15:32:20
Daniel
Hi
Ich würde auch mal sagen, es liegt daran, daß 0 (Zahl) nicht das gleich ist wie "0" (Zeichen)
allerdings ist mir die Logik noch nicht ganz klar, kannst du nochmal beschreiben, wann aus- und wann eingeblendet wird?
In deiner Logik wird der Hinweis eingeblendet, wenn alle Zellwerte = 0 sind.
Ausgeblendet wird, wenn die Zelle P11 0 UND alle anderen Zellen = 0 sind.
sollte eine der anderen Zellen einen Wert 0 haben passiert NICHTS, dh. die Textbox bleibt in dem Zustand, den sie momentan hat.
Ist das richtig so? Wenn nein solltest du deine Logik nochmal überdenken.
Gruß, Daniel
Anzeige
AW: Wo ist der Fehler?
21.05.2009 20:50:15
dan
Hallo,
das Problem liegt nicht im Zahl oder String, weil hier wird eigentlich ein Variant type vergleicht, weil was wir hier genau machen ist dies:
Cells(row, col).Value = 0 ... und Value ist eine Property, die gibt den Variant zurueck. Also ob Zahl oder string, in dem Vergleich wird eine implicit-conversion gemacht.
Laut Help: Value property as it applies to the Range object...Returns or sets the value of the specified range. Read/write Variant
Dein Code funzt nicht, weil es nicht komplett ist. Es fehlen die Else Teile. Aber besser waere es die einzelnen Bedingugen mit And zu verbinden. Siehe die Code-Samples unten ... nur als Beispiel gedacht. Gruss dan, cz.
Option Explicit

Public Sub SetTextboxVisibility()
If Worksheets("Tabelle1").Cells(10, 11) = "0" Then
If Worksheets("Tabelle1").Cells(11, 11) = "0" Then
If Worksheets("Tabelle1").Cells(10, 12) = "0" Then
If Worksheets("Tabelle1").Cells(11, 12) = "0" Then
If Worksheets("Tabelle1").Cells(10, 13) = "0" Then
If Worksheets("Tabelle1").Cells(11, 13) = "0" Then
If Worksheets("Tabelle1").Cells(10, 16) = "0" Then
If Worksheets("Tabelle1").Cells(11, 16) = "0" Then
Worksheets("Tabelle2").Shapes("Textfeld 1").Visible = True
Else
Worksheets("Tabelle2").Shapes("Textfeld 1").Visible = False
End If
Else
Worksheets("Tabelle2").Shapes("Textfeld 1").Visible = False
End If
Else
Worksheets("Tabelle2").Shapes("Textfeld 1").Visible = False
End If
' usw...
End If
End If
End If
End If
End If
End Sub




Public Sub SetTextboxVisibility2()
If (Worksheets("Tabelle1").Cells(10, 11) = "0" And _
Worksheets("Tabelle1").Cells(11, 11) = "0" And _
Worksheets("Tabelle1").Cells(10, 12) = "0" And _
Worksheets("Tabelle1").Cells(11, 12) = "0" And _
Worksheets("Tabelle1").Cells(10, 13) = "0" And _
Worksheets("Tabelle1").Cells(11, 13) = "0" And _
Worksheets("Tabelle1").Cells(10, 16) = "0" And _
Worksheets("Tabelle1").Cells(11, 16) = "0") Then
Worksheets("Tabelle2").Shapes("Textfeld 1").Visible = True
Else
Worksheets("Tabelle2").Shapes("Textfeld 1").Visible = False
End If
End Sub


Anzeige
AW: Andere Alternative
21.05.2009 21:55:15
Daniel
Hi
da es ja um den Wert 0 geht, könnte man auch einfacher die Summe der betroffenen Zellen prüfen:

if Worksheetfunction.Sum(Worksheets("Tabelle1").Range("K10:M11,P10:P11")) = 0 then
Worksheets("Tabelle2").Shapes("Textfeld 1").Visible = True
else
Worksheets("Tabelle2").Shapes("Textfeld 1").Visible = True
end if


oder kürzer:


Worksheets("Tabelle2").Shapes("Textfeld 1").Visible = (Worksheetfunction.Sum(Worksheets(" _
Tabelle1").Range("K10:M11,P10:P11")) = 0)


Gruß, Daniel

Anzeige
AW: -... .Sum(3 - 5 + 2) = Visible ? o.T.
21.05.2009 22:40:53
Gerd
Gruß Gerd
nixverstehn in Athen oT
21.05.2009 22:49:19
Daniel
Gruß, Daniel
AW: Bei positiven Zahlen, alles o.K. ,
21.05.2009 23:32:25
Gerd
bei negativen in den Bezugszellen, meistens auch, aber nicht immer.
Gruß Gerd
Anzeige
AW: ok, wenn die Summe zufällig 0
21.05.2009 23:50:47
Daniel
ergibt, wird der Hinweis falsch angezeigt.
dazu müssen allerdings positve und negative Werte eingegeben werden.
alternativ könnte man ja auch sowas abfragen:

If Worksheetfunction.CountIf(Range(...), 0) = Range().Cells.Count then
....Visible = true
else
....Visible = false
End if


oder


If Worksheetfunction.Min(range()) = 0 and Worksheetfunction.Max(Range()) = 0 then


nur für jede einzelne Zelle ne Bedingungsprüfung würde ich bei dieser Anzahl von Zellen vermeiden, da verliert man ja total die Übersicht.
Gruß, Daniel

Anzeige
AW: ok, wenn die Summe zufällig 0
22.05.2009 21:35:23
Jay
Vielen lieben Dank an alle!
Grüße, Jay
;

Forumthreads zu verwandten Themen

Wo ist der Fehler?
Bernd

Einen schönen guten Morgen,
folgendes Problem habe ich:
Wie Ihr in der Tabelle sehen könnt, ist Andy auf platz 4 und Hery und Bernd auf Platz 5.
Wo ist da der Fehler in der Formel?
Tabelle2

 ABCD12PlatzNameverlorenhilfsspalte134Andy        1,30 €...
30.08.2008 07:15:00
Thread-ID: 1006008
3 Beiträge
wo ist der fehler?
stefan

Hallo,
ich habe eine spalte mit domainnamen (z.b domain.de oder domain.net). ich will daraus den wert ermitteln. wenn .de-domain, dann 1 ansonsten 1,5
habe folgende formel: =WENN(FINDEN(".de";$B2);1;1,5)
leider wirft er bei nicht .de-domains einen fehler aus und schreibt nicht 1,5 h...
09.12.2008 11:57:11
Thread-ID: 1031321
8 Beiträge
Formel: Summe= Monat, Jaht und Text
Frank

Hallo, bräuchte mal eure Hilfe.
Habe eine Tabelle und möchte nur die Anzahl des Textes die in A stehen
aber nur von bestimmtem Jahr und Monat
es wird erst in M der Monat gesucht den ich in B2 eingebe
dann das Jahr in M das ich in F1 eingebe
und nun der Text der in A steht.
14.12.2008 10:38:00
Thread-ID: 1032734
2 Beiträge
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 Beiträge
KW Funktion funktioniert nicht
Peter

Hallo Excelfreunde
Ich bekomme in einer Datei die KW Funktion nicht hin.
Bei mir zu Hause funktioniert die Ausgabe der jeweiligen Kalenderwoche.
Die Analysefunktion muss dafür per Add in angewählt werden.
Dann "=KALENDERWOCHE(A1205)" eingeben - fertig.
Aber im Betrieb läuft...
14.03.2009 19:26:55
Thread-ID: 1060238
4 Beiträge
Anzeige
wo ist der fehler?
Hirschi

Sub mal4() Dim a As Integer For a = 1 To 100 If Cells(a, 1).Caption "" And Cells(a, 1).Caption Mod Cells(a, 2).Caption = 0 Then Cells(a, 3).Caption = CLng(Cells(a, 2)) / 5 * 4 Else Cells(a, 3).Caption = "" End If Next End Sub
Vielen Dank für eure Hilfe! Gruss Hirschi
27.03.2009 12:46:02
Thread-ID: 1064581
9 Beiträge
wo ist der fehler?
Emil

Hallo zusammmen
könnt ihr mir sagen wo hier der Fehler ist?
=WENN(L12="";RANG(C12;C$12:"C"$&Zeile(11+C9));"")
C$12:"C"$&Zeile(11+C9) darf man einen Bereich so formulieren?
in diesem falle müsste das dann geben den Bereich C12:C20
Gruss Emil
06.04.2009 15:14:56
Thread-ID: 1067119
6 Beiträge
wo ist der fehler?
Michel

Hallo
=SUMMENPRODUKT((A1:A1000)="Neue Formatdaten)"*((D1:D1000)="ZugriffLevel0"))
Vielen Dank für eure Hilfe!
Gruss Michel
08.05.2009 14:05:10
Thread-ID: 1073889
4 Beiträge
wo ist der Fehler?
Reto

Hallo zusammen
bekomme mit dieser Formel nur die Fehlermeldung #Wert..
=SUMMENPRODUKT((JAHR('einmalige Bestellungen'!D2:D5000)=Gesamtübersicht!A6)*1)
in D2:D5000 stehen Daten, in A6 ist 2004
wieso geht das nicht?
Vielen Dank für eure Hilfe!
Gruss Reto
15.05.2009 14:03:32
Thread-ID: 1075467
4 Beiträge
Formel interpretiert Feldwerte als Text
pietsch.st@gmx.de

Hallo Forum,
habe Werte in vier Zellen. Die Werte stammen jeweils aus folgender selbstgeschriebener Funktion mit Rückgabewert Long:
= Anz_Unf($B$2, "Arbeitsunfall", "3","e").
Die Werte dieser Formel sind im Feld als Zahl dargestellt und sind korrekt. Als Zahl gemäß Excel "Format-Zel...
08.07.2009 22:59:54
Thread-ID: 1087292
3 Beiträge
Text als Formel
chrissey

Hey Leut,
hab folgendes Problem:
Hab in Spalte C folgenden Text:
50*3,2+8,4
möchte nun diesen Text in Spalte F berechnet haben. Wie mach ich das,
weil =C1 oder ="="&C1 geht net.
Grüße und DANKESCHÖÖÖÖN schon mal
09.08.2009 18:29:54
Thread-ID: 1094551
5 Beiträge
Monat als Text
Christian

Hallo Freunde,
ich hab in Zelle C1 einen Wert von z.B."8" und möchte dafür in Zelle E3 den Text "August" erscheinen lassen. Ebenso wenn z. B. "2" in C1 steht soll "Februar" als Text in E3 erscheinen.
Ist es besser über eine verschachtelte Wenn Formel zu gehen ?
Gruß Christian
08.09.2009 10:19:25
Thread-ID: 1101196
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige