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
Anzeige
Inhaltsverzeichnis

max 1 Zelle von 4 Zellen gültiger Eintrag

Forumthread: max 1 Zelle von 4 Zellen gültiger Eintrag

max 1 Zelle von 4 Zellen gültiger Eintrag
20.05.2009 21: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
Anzeige

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 22: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
21.05.2009 01:12:52
4
Hallo Sepp,
perfekt, alles bestens!
Gruß
Lemmi
AW: max 1 Zelle von 4 Zellen gültiger Eintrag
21.05.2009 01: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
21.05.2009 01: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 10:08:30
4
Hallo Sepp,
alles prima!
Vielen Dank!
Gruß
Lemmi
AW: mit Datengültigkeit gehts ohne Makro
21.05.2009 17: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
Anzeige

Forumthreads zu verwandten Themen

Seitenzahlzahl einfügen
Susanne
Hallo Leute,
ich habe hier folgendes Problem. Ich habe in Excel unter „Seite einrichten“ in der Fußzeile die Seitenzahl mit der Formatierung „Seite X von Y“ eingefügt.
Was ja eigentlich auch ganz einfach ist.
Wenn man nun allerdings die gesamte Tabelle markiert und dann unter Format in...
07.06.2006 19:20:35
Thread-ID: 771064
1 Beitrag
Fortschrittsbalken in Makro implementieren???
ralle

Hallo liebes Forum!
Mit Eurer Hilfe ist es mir gelungen nachfolgendes Makro zu schreiben (Dafür vielen, vielen Dank!!!)
Das Sahnestück wäre natürlich, wenn ich in diese Makro eine Fortschrittsanzeige einbauen könnte, da dies Makro unter Umständen doch sehr lange dauern kann (hängt ab vo...
18.05.2004 13:43:04
Thread-ID: 430038
3 Beiträge
Seitenzahlen varierbar
Mandy

Hallo zusammen,
brauch hier etwas Unterstützung.
Ich habe eine Excel Dokument mit ca. 80 Seiten.
Die ersten 10 Seiten habe ich normal in der Fußzeile mit Seitenzahl einfügen bedient.
Ab der 11. Seite soll er aber dann mit Seite 49 anfangen. Wie mache ich das?
Danke schon m...
06.06.2016 16:53:34
Thread-ID: 1497163
1 Beitrag
Seitennummerierung
AndreasB

Guten Tag!
Ich habe folgende Frage an Euch:
Ich habe in Excelfile mit verschiedenen Blättern.
In jedem Blatt habe ich in der Fußzeile eine Seitennummerierung mit den Blattnamen:
Seite / Blattnamen
Die Seitennummerierung beginnt für jedes Blatt mit 1 / Blattnamen.
Wenn ic...
05.06.2007 10:56:46
Thread-ID: 875549
1 Beitrag
Zeilenhöhe festlegen
Thomas

Hallo Excelfreunde,
ich habe mir ein kleines Macro zusammengebaut welches sicherstellt das auf allen zu druckenden Seiten immer die letzten Zeilen gleich sind. So ähnlich wie Wiederholungzeilen oben, aber halt Ebend nur unten.
Nun muss ich auf der letzten zu druckenden Seite immer leer...
23.11.2020 10:35:42
Thread-ID: 1794962
9 Beiträge
automatisch blattfüllend Leerzeilen einfügen?
Bernd

Hallo zusammen,
versuche gerade unsere Inventurlisten-Erstellung etwas zu automatisieren...
In einem Tabellenblatt haben wir zig Einträge, je nach Zelleintrag in Spalte 'Inventurliste' werden die dann auf die einzelnen Blätter kopiert.
Soweit klappts ja.
Mein Problem ist eigentl...
04.07.2018 18:29:00
Thread-ID: 1632140
7 Beiträge
Fußzeile per Makro mit mehreren Variablen einfügen
Joni

Hallo,
ich hoffe auf Hilfe bei nachfolgender Fragen.
Ich füge per Makro eine Fußzeile ein. Die Fußzeile soll 1 x das aktuelle Datum (als Variable) und Seite x von y enthalten. Jeden Teil für sich kriege ich in die Fußzeile aber die Kombination verursacht einen Laufzeitfehler 1004. Wie m...
06.11.2014 01:36:35
Thread-ID: 1390735
4 Beiträge
Fußzeilenprobleme
steve

Hallo Leute,
ich komme nicht klar. Ich habe einen Fußzeile, die größer als 255 Zeichen ist. Ich habe viele Tabellenblätter und Seiten, bei denen das immer mitgedruckt werden muss.
Ich habe hier im Forum schon mal den Tip bekommen mit Wiederholungszeichen, weiß aber nicht wie mir das we...
09.03.2005 16:19:09
Thread-ID: 582667
7 Beiträge
Drucken per Userform als Array
strodti

Hallo liebes Forum,
ich habe mal wieder ein VBA-Problem.
In meiner Datei sind mehrere Tabellenblätter vorhanden, die in der Fußzeile über eine Seitenzahl verfügen. Beim Drucken habe ich bezüglich der Seitenzahlen zwei Möglichkeiten:
a) Wenn ich zum Drucken Blätter als Array zusammen...
22.12.2010 12:22:11
Thread-ID: 1192505
8 Beiträge
Eingeblendete Tabellenblätter drucken
Thom

Hallo,
ich habe ein Formular mit mehreren Tabelleblättern in Excel erstellt.
Diese können mit Schaltflächen beliebig aus- und eingeblendet werden.
Nun zu meinem Problem.
Ich würde gern alle eingeblendeten Tabellenblätter(Seiten)durch drücken einer Schaltfläche ausdrucken und wob...
30.08.2006 20:11:10
Thread-ID: 797230
3 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum