Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1668to1672
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
1668to1672
1668to1672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn ein Wert aus Zelle B19:O19 < 10 dann

Wenn ein Wert aus Zelle B19:O19 < 10 dann
25.01.2019 09:35:59
Philip
Hallo wie kann ich mit Vba den wert der Zellen von B19.O19 abfragen, das dieser kleiner 10 ist ?
In zelle B19-O19 wird der Wert per Formel =WENN(E8="";"";WENN(K1größer17;(HEUTE()-E8+365);(HEUTE()-E8+180))) errechnet.
Für eure Hilfe bin ich sehr dankbar.
Als 2. Frage Hätte ich dann: Ist es möglich auf einem anderen tabellenblatt (welches namen aus Zelle B2 des aktiven tabellenblatts hat) zuzugreifen und diesen rot zu färben wenn die zahl kleiner 10 ist und wieder schwarz wenn kein wert oder größer 10?

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn ein Wert aus Zelle B19:O19 < 10 dann
25.01.2019 12:14:00
Werner
Hallo Philip,
so: 
Public Sub Test()
'Blattname anpassen
With Worksheets("Tabelle1")
If WorksheetFunction.CountIf(.Range("B19:O19"), " 0 Then
MsgBox "Hier dann dein weiterer Code"
Else
MsgBox "Hier dann keine Ahnung"
End If
End With
End Sub
Gruß Werner
AW: Wenn ein Wert aus Zelle B19:O19 < 10 dann
25.01.2019 12:46:08
Philip
Wenn ich den Code über F5 ausführe funktioniert es. Allerdings weißt er mich nicht darauf hin Wenn ich nur in der Mappe bin
AW: Wenn ein Wert aus Zelle B19:O19 < 10 dann
25.01.2019 13:01:05
Werner
Hallo Philip,
mit der Aussage kann ich nichts anfangen. Was meinst du mit Allerdings weißt er mich nicht darauf hin Wenn ich nur in der Mappe bin?
Frage:
Wo hast du den Code? Im Codemodul eines Tabellenblattes?
Der Code gehört in ein allgemeines Modul.
Wie sieht der Code aus, den du aktuell in Benutzung hast?
Gruß Werner
Anzeige
AW: Wenn ein Wert aus Zelle B19:O19 < 10 dann
25.01.2019 13:15:45
Philip
Der Code befindet sich in dem Arbeitsblatt "Muster EBT"
Wenn ich jetzt in das Blatt gehe und in der Zeile B19 ändert sich der Werkt auf Kleiner 10 passiert nichts.
Ich habe mir jetzt überlegt das es am besten wäre wenn er die Messagebox über ein Makro (button) auf einem anderen Arbeitsblatt aufruft. Würde das gehen?
Ich muss dazu sagen (Muster Ebt) wird kopiert und es entstehen weitere Blätter mit anderem Namen. Diese möchte ich dann über den Button alle abfragen, falls das möglich ist
Private Sub Test()
'Blattname anpassen
With Worksheets("MusterEBT")
If WorksheetFunction.CountIf(.Range("B19:O19"), " 0 Then
MsgBox "Hier dann dein weiterer Code"
Else
'Nichts
End If
End With
End Sub

Anzeige
AW: Wenn ein Wert aus Zelle B19:O19 < 10 dann
25.01.2019 13:21:02
Werner
Hallo Philip,
dann kopier das Makro doch, wie schon geschrieben, in ein allgemeines Modul. Auf irgendeinem Blatt kannst du dir dann einen Button erstellen und diesem Button dann das Makro zuweisen.
Gruß Werner
AW: Wenn ein Wert aus Zelle B19:O19 < 10 dann
25.01.2019 13:34:42
Philip
Hallo Werner,
Wie kann ich denn das Makro auf alle Tabellen beziehen die namentlich in "Tabelle EBT" (B:B) stehen?
hast du da eine lösung?
Mit dem Makro habe ich soweit hinbekommen das der aufruf für das eine Blatt funktioniert.
AW: Wenn ein Wert aus Zelle B19:O19 < 10 dann
25.01.2019 13:40:26
Philip
Hallo Werner,
Wie kann ich denn das Makro auf alle Tabellen beziehen die namentlich in "Tabelle EBT" (B:B) stehen?
hast du da eine lösung?
Mit dem Makro habe ich soweit hinbekommen das der aufruf für das eine Blatt funktioniert.
Anzeige
AW: Wenn ein Wert aus Zelle B19:O19 < 10 dann
25.01.2019 13:59:43
Werner
Hallo Philip,
was ich mich Frage, warum das häppchenweise kommt. 
Public Sub Test()
Dim i As Long, strBlattname As String
With Worksheets("Tabelle EBT")
loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = 1 To loLetzte
strBlattname = .Cells(i, 2)
With Worksheets(strBlattname)
If WorksheetFunction.CountIf(.Range("B19:O19"), " 0 Then
MsgBox "Wert kleiner 10 in Tabelle " & strBlattname
Else
MsgBox "Hier dann keine Ahnung"
End If
End With
Next i
End With
End Sub
Gruß Werner
AW: Wenn ein Wert aus Zelle B19:O19 < 10 dann
25.01.2019 14:10:00
Philip
Tut mir leid, das liegt daran das ich noch nicht so weiß was alles möglich ist.
Als du dann sagtest das das über ein Modul aufgerufen werden muss, dachte ich das es dann besser wäre wenn ich das über einen Button machen kann.
Bei dem Code kommt jetzt der Fehler das Worksheets(strBlattname) außerhalb des Bereichs liegt. Ich denke das liegt daran das nicht alle Namen dort auch eine Tabelle haben. Kann mann in den Code schreiben wenn ein name keine Tabelle hat nur die nehmen die er findet?
Ich danke dir schonmal vielmals bis hierhin :)
Anzeige
AW: Wenn ein Wert aus Zelle B19:O19 < 10 dann
26.01.2019 05:54:11
Werner
Hallo Philip,
so: 
Public Sub Test()
Dim i As Long, strBlattname As String, ws As Worksheet
With Worksheets("Tabelle EBT")
loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = 1 To loLetzte
strBlattname = .Cells(i, 2)
For Each ws In ThisWorkbook.Worksheets
If ws.Name = strBlattname Then
With ws
If WorksheetFunction.CountIf(.Range("B19:O19"), " 0 Then
MsgBox "Wert kleiner 10 in Tabelle " & ws.Name
Else
MsgBox "Hier dann keine Ahnung"
End If
End With
Exit For
End If
Next ws
Next i
End With
End Sub
Gruß Werner
AW: Wenn ein Wert aus Zelle B19:O19 < 10 dann
28.01.2019 08:59:38
Philip
Super besten Dank :)
Gerne u. Danke für die Rückmeldung. o.w.T.
28.01.2019 11:09:20
Werner
AW: Wenn ein Wert aus Zelle B19:O19 < 10 dann
25.01.2019 13:01:12
Philip
Oder kann ich mit einem Makro von einem anderen Tabellenblatt die Abfrage Public Sub Test() starten?
Anzeige

429 Forumthreads zu ähnlichen Themen

Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Anzeige
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Anzeige
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Wenn Zelle enthält, dann
Rudolph

Hallo,
ich möchte mit .xls meine Kontodaten auswerten. Die Kontoauszugsdaten stehen in Spalte "D" auf dem Sheet "Kontodaten" Im selben Sheet Spalte "E" steht der Betrag. Das Sheet "Bezüge" enthält Namensfelder (z.B. "Auto" mit einer Auflistung der Tankstellen, KFZ-Versicherung o.ä.; "Lebens...
23.05.2009 14:30:40
Thread-ID: 1076853
5 Beiträge
Wenn Zeile doppelt dann löschen
walli

Guten Morgen,
ich möchte gern, wenn eine Zeile in meiner großen Tabelle doppelt vorhanden ist,
löschen.
Die Werte fangen ab Zeile 6 an und sind von Spalte A bis M,
es soll dann die doppelte Zeile nur von A-M gelöscht werden.
mfg walli
24.06.2009 11:29:15
Thread-ID: 1084058
5 Beiträge

Links zu Excel-Dialogen

MessageBox

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
3
15
5
2
2
7
2
3
4
4
2
9
2
6
9
8
5
2
10
2
3
5
2
3
3