Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1076to1080
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
1076to1080
1076to1080
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

max 1 Zelle von 4 Zellen gültiger Eintrag

max 1 Zelle von 4 Zellen gültiger Eintrag
20.05.2009 19:18:49
4
Hallo zusammen,
wird in einer Zelle von 4 in der Reihe ab Zeile 6 eine 1 eingetragen so sollen die vorhanden Einträge in den Auswahlfeldern A;B;C; und D gelöscht werden!
In den Auswahlfelder darf nur immer ein Eintrag vorliegen!
Es soll damit nur ein "ODER" Eintrag durchgeführt werden können!
Die Zellen ab H6 bis K1000 sollen diese Eigenschaft bekommen!
Sowie T6 bis W1000
https://www.herber.de/bbs/user/61953.xls
Gruß
Lemmi

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: max 1 Zelle von 4 Zellen gültiger Eintrag
20.05.2009 20:36:40
4
Hallo Lemmi,
in das Modul der Tabelle.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo ErrExit
  If Target.Count = 1 Then
    If Not Intersect(Target, Range("H6:K1000")) Is Nothing Then
      Application.EnableEvents = False
      If Target = 1 Then
        Range(Cells(Target.Row, 8), Cells(Target.Row, 11)) = ""
        Target = 1
      Else
        Range(Cells(Target.Row, 8), Cells(Target.Row, 11)) = ""
      End If
    End If
  End If
  ErrExit:
  Application.EnableEvents = True
End Sub

Gruß Sepp

Anzeige
AW: max 1 Zelle von 4 Zellen gültiger Eintrag
20.05.2009 23:12:52
4
Hallo Sepp,
perfekt, alles bestens!
Gruß
Lemmi
AW: max 1 Zelle von 4 Zellen gültiger Eintrag
20.05.2009 23:24:55
4
Hallo Sepp,
mir ist gerade bei testen noch etwas aufgefallen!
Ich benötige die Funktion auch in T6:W1000!
Wie bringe ich das ein?
Beide Blöcke arbeiten unabhängig!
Gruß
Lemmi
AW: max 1 Zelle von 4 Zellen gültiger Eintrag
20.05.2009 23:36:18
4
Hallo Lemmi,
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo ErrExit
  If Target.Count = 1 Then
    If Not Intersect(Target, Range("H6:K1000", "T6:W1000")) Is Nothing Then
      Application.EnableEvents = False
      If Target = 1 Then
        Range(Cells(Target.Row, IIf(Target.Column <= 11, 8, 20)), Cells(Target.Row, IIf(Target.Column <= 11, 11, 23))) = ""
        Target = 1
      Else
        Range(Cells(Target.Row, IIf(Target.Column <= 11, 8, 20)), Cells(Target.Row, IIf(Target.Column <= 11, 11, 23))) = ""
      End If
    End If
  End If
  ErrExit:
  Application.EnableEvents = True
End Sub

Gruß Sepp

Anzeige
AW: max 1 Zelle von 4 Zellen gültiger Eintrag
21.05.2009 08:08:30
4
Hallo Sepp,
alles prima!
Vielen Dank!
Gruß
Lemmi
AW: mit Datengültigkeit gehts ohne Makro
21.05.2009 15:08:28
Daniel
Hi
wenn pro Zeile nur Feld ausgefüllt werden darf, dann kannst du das auch einfacher über DATEN - GÜLTIKEIT erledigen:
1. Zellbereich H6:K30 markieren
2. DATEN - GÜLTIGKEIT klicken
3. unter EINSTELLUNGEN folgendes eingeben:
bei "Zulassen" - "Benuterdefiniert" und bei "Formel" - "=ANZAHL2($H6:$K6)<2"
4. ggf noch unter FEHLERMELDUNG ein entsprechende Hinweismeldung eingeben
Gruß Daniel

310 Forumthreads zu ähnlichen Themen

Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
Anzeige
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Anzeige
Öffnen und Schliessen von geschützten ohne Abfrage
geschützten

Hallo Leute,
ich baue ein Berichtswesen in Excel auf. Aufgrund der großen Datenmenge benötige ich zwei Dateien.
- In der Datenbank-Datei (DB.xls) sind die Daten abgespeichert. Diese Datei ist durch Kennwort geschützt, um ein Verändern der Daten durch Unberechtigte zu verhindern.
-...
17.09.2008 14:20:00
Thread-ID: 1010396
6 Beiträge
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 Beiträge
Leere(nur Formel drin) Zellen in Diagramm
Volker

Hallo,
ich habe ein Problem und hoffe auf Eure Hilfe!
Ich habe mit Excel2007 (wahrscheinlich besteht das Problem auch in anderen Versionen) ein Diagramm erstellt. Es werden dabei 2 Datenreihen angezeigt. Soweit so gut...
Reihe 1 bildet sich aus 10 Werten, von denen der erste Teil vo...
25.09.2008 16:11:00
Thread-ID: 1012372
6 Beiträge
HTML-Seiten auslesen und in Excel, MySQL usw. absp
annalena

Hallo,
ich habe in der Struktur gleichmäßig, wiederkehrende HTML-Seiten aus einem Bücher-Shop und möchte die Produkt-Daten, statt abzuschreiben, aus den HTML-Seiten auslesen um diese dann in Excel oder einer DB zu speichern. Erlaubnis liegt natürlich vor - ist also kein Datenklau.
Habe...
28.09.2008 18:09:23
Thread-ID: 1012955
2 Beiträge
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Anzeige

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
4
2
13
2
4
5
5
5
1
7
10
5
1
6
2
6
2
5
1
5
5
2
8
2
1