Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
412to416
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
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn in Zelle B1 "NO", dann in B2..B8 "NO"

Wenn in Zelle B1 "NO", dann in B2..B8 "NO"
Helmut
Hallo liebe Forumleute,
es ist leider wieder mal so weit, dass ich bei einer Sache anstehe; und ich hoffe, dass mir dabei jemand helfen kann.
Ich habe in den Zellen A1 bis A8 fixen Text stehen, daneben, also in den Zellen B1 bis B8 sollen "YES" oder "NO" stehen; und zwar so, dass wenn ich in eine Zelle YES schreibe, automatisch in den anderen Zellen NO steht!
Bsp.: Ich schreibe in Zelle B4 YES hinein, dann soll in den Zellen B1, B2, B3, B5, B6, B7 und B8 überall NO stehen!
Schreibe ich aber z.B. in Zelle B7 YES hinein, dann soll in den Zellen B1, B2, B3, B4, B5, B6 und B8 überall No stehen!
Ich bin weder Excel noch VBA-Profi und bitte daher um die genaue Angabe einer eventuellen Lösung (Skript)!
Eine WENN-Abfrage wäre aufgrund der Kombinationsmöglichkeiten viel zu lang oder unmöglich, denke ich.
Kann mir bitte jemand helfen?
Ich danke im Voraus!
LG
Helmut

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Wenn in Zelle B1 "NO", dann in B2..B8 "NO"
FritzF
Hallo Helmut
Mir ist die Sache noch nicht ganz klar.
Was soll den passieren wenn zum Beispiel in den Zellen A4 und A7 "YES" steht?
Gruss
Fritz
Sorry, flasch gelesen
FritzF
AW: Wenn in Zelle B1 "NO", dann in B2..B8 "NO"
Josef
Hallo Helmut!
Das sollte es tun!
Option Explicit
'Dieser Code gehört in das Modul der Tabelle!
'Rechtsklick auf Tabellenreiter > Code anzeigen
'und im rechten fenster den Code einfügen!

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1:B8]) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Count = 1 Then
If UCase(Target) = "YES" Then
[B1:B8] = "NO"
Target = "YES"
Else
Target = "NO"
End If
End If
FEHLER:
Application.EnableEvents = True
End Sub
Gruß Sepp
Anzeige
kleine korrektur!
Josef
Hallo Helmut!
So stimmt's!
Option Explicit
'Dieser Code gehört in das Modul der Tabelle!
'Rechtsklick auf Tabellenreiter > Code anzeigen
'und im rechten fenster den Code einfügen!

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1:B8]) Is Nothing Then Exit Sub
On Error GoTo FEHLER
Application.EnableEvents = False
If Target.Count = 1 Then
If UCase(Target) = "YES" Then
[B1:B8] = "NO"
Target = "YES"
Else
Target = "NO"
End If
End If
FEHLER:
Application.EnableEvents = True
End Sub
Gruß Sepp
Anzeige
AW: kleine korrektur!
Helmut
Hallo Sepp,
ich danke dir recht schön!!! Echt super, denn esfunktioniert sehr gut; genau wie ich mir das vorgestellt habe!
Vielen Dank nochmals und noch eine schöne Woche!!
Servus, Helmut
Nochmals bitte HILFE!!
Helmut
Hallo Sepp,
letzte Frage noch:
Wenn ich in einem Tabellenblatt mehrere solche (UNABHÄNGIGE!) Bereiche für diese YES/NO Abfragen haben möchte, funktioniert das nicht mehr einfach durch Kopieren des Codes im Modul der Tabelle! Auch mit Änderung der Namen nicht (z.B.: Target1 statt Target, FEHLER1 statt FEHLER, usw.).
Weißt du auch hier nochmals Rat?!
Danke im Voraus
LG
Helmut
Anzeige
AW: Nochmals bitte HILFE!!
Josef
Hallo Helmut!
Das geht z.B. so!
Option Explicit
'Dieser Code gehört in das Modul der Tabelle!
'Rechtsklick auf Tabellenreiter > Code anzeigen
'und im rechten fenster den Code einfügen!
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [B1:B8,D1:D8,F1:F8]) Is Nothing Then Exit Sub 'für die Bereiche "B1:B8", "D1:D8", "F1:F8"! On Error GoTo FEHLER Application.EnableEvents = False If Target.Count = 1 Then If Not Intersect(Target, [B1:B8]) Is Nothing Then If UCase(Target) = "YES" Then [B1:B8] = "NO" Target = "YES" Else Target = "NO" End If ElseIf Not Intersect(Target, [D1:D8]) Is Nothing Then If UCase(Target) = "YES" Then [D1:D8] = "NO" Target = "YES" Else Target = "NO" End If ElseIf Not Intersect(Target, [F1:F8]) Is Nothing Then If UCase(Target) = "YES" Then [F1:F8] = "NO" Target = "YES" Else Target = "NO" End If End If End If FEHLER: Application.EnableEvents = True End Sub
Gruß Sepp
Anzeige
AW: Nochmals bitte HILFE!!
21.04.2004 08:10:29
Helmut
Hallo Sepp,
du bist Spitze! Das funktioniert super!
Recht herzlichen Dank!
Du hast mir sehr geholfen damit, und ich habe Dank dir wieder dazugelernt.
LG
Helmut

344 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

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