Das Archiv des Excel-Forums

Nur einen Eintrag im Bereich zulassen

Bild

Betrifft: Nur einen Eintrag im Bereich zulassen
von: Lemmi

Geschrieben am: 03.08.2008 17:45:38

Hallo zusammen,
ich möchte in einer Zeile (4) Nur einen Eintrag zulassen!
Der Bereich soll von I4 bis AB 4 gehen
Wird ein Text oder eine Zahl eingetragen z. B. in J4 "Hallo" so wird diese wieder verschwinden wenn ein neuer Eintrag in K4 durchgeführt worden ist! (z. B Hi 123)
D.h. die vorhandenen Einträge werden immer bei einem Neueintrag gelöscht!
zur Info!
Die Auswahl möchte ich Vorzugsweise mit einem Drop- Down Menü durchführen, hierzu benötige ich aber keine Unterstützung!
Gruß
Lemmi

Bild

Betrifft: AW: Nur einen Eintrag im Bereich zulassen
von: Daniel
Geschrieben am: 03.08.2008 18:01:45
Hallo
das geht nur mit einem Makro im Modul des Tabellenblatts
dazu könntest du dieses Makro verwenden, es ist zwar etwas aufwendiger, würde aber auch funktionieren, falls ein grösserer Zellbereich in die Zeile kopiert würde
Gruß, Daniel


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range, rng2 As Range
Dim Eingabe As String
Set rng2 = Range("I4:AB4")
Set rng1 = Intersect(Target, rng2)
If Not rng1 Is Nothing Then
Application.EnableEvents = False
Eingabe = rng1(1).Formula
rng2.ClearContents
rng1(1).Formula = Eingabe
Application.EnableEvents = True
End If



Bild

Betrifft: AW: Nur einen Eintrag im Bereich zulassen
von: Lemmi

Geschrieben am: 03.08.2008 18:16:24
Hallo Daniel!
Heute ist Sonntag und die Antwort hat nicht einmal eine "Kaffeepause" auf sich warten lassen!
Einfach Super!
Gruß
Lemmi

Bild

Betrifft: AW: Nur einen Eintrag im Bereich zulassen
von: Lemmi
Geschrieben am: 03.08.2008 20:11:37
Hallo Daniel!
hab noch ne kleine Frage! Wie bringe ich die zwei Worksheet_Change zusammen!
... einen anderen Namen vergeben als Change (.. ist wenn ich das richtig sehe mit einer Funktion/ Prozedur verbunden) geht nicht!
Hmm..aber wie dann?


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'nicht bei Markierung mehrerer Zellen
'If Application.CutCopyMode Then Exit Sub 'nicht beim Kopieren/Ausschneiden
Application.EnableEvents = False
'Veränderungen im Bereich G6:CZ1000 werden in derjewaligen Zeile 5 mit Datum  _
protokolliert
If Not Intersect(Target, Range("G6:CZ1000")) Is Nothing Then
'Cells(5, Target.Column) = Now   ' Ausgabe TT:MM:JJ und hh:mm:ss
Cells(5, Target.Column) = Date   ' Ausgabe TT:MM:JJ
End If
Application.EnableEvents = True
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range, rng2 As Range
Dim Eingabe As String
Set rng2 = Range("G4:AB4")
Set rng1 = Intersect(Target, rng2)
If Not rng1 Is Nothing Then
Application.EnableEvents = False
Eingabe = rng1(1).Formula
rng2.ClearContents
rng1(1).Formula = Eingabe
Application.EnableEvents = True
End If
Gruß
Lammi

Bild

Betrifft: AW: Nur einen Eintrag im Bereich zulassen
von: Daniel

Geschrieben am: 03.08.2008 20:46:36
HI
du kannst pro Sheet nur ein Worksheet_Change-Makro haben.
die beiden Makros müssen in einem zusammengefasst werden.
Gruß, Daniel

Bild

Betrifft: AW: Nur einen Eintrag im Bereich zulassen
von: Lemmi
Geschrieben am: 03.08.2008 20:51:36
Hallo Daniel,
wie bringe ich diese zusammen?
Kenne ich da zuwenig aus!
Könntest Du mich unterstützen?
Gruß
Lemmi

Bild

Betrifft: AW: Nur einen Eintrag im Bereich zulassen
von: Daniel

Geschrieben am: 03.08.2008 20:59:07
Hi
nja, du kopierst beide Codes untereinander und baust die Abbruch- und Ausfürbedingungen so um, daß sich beide Codes nicht in Quere kommen.
Insbesondere die IF..THEN EXIT SUB sollten durch richtig IF ... THEN...ELSE...END IF - Klammern ersetzt werden, weil ja der 2. Teil ja unabhängig vom ersten ausgeführt werden muss.
dann schaust du dir noch die Variablen ab, ob es da eventuell zu irgendwelchen Konfliken kommen kann und benennst u.U. noch die betreffenden Variablen um und fertig.
Gruß, Daniel

Bild

Betrifft: AW: Nur einen Eintrag im Bereich zulassen
von: Ramses
Geschrieben am: 03.08.2008 21:38:30
Hallo
probier mal


Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng1 As Range, rng2 As Range
    Dim Eingabe As String
    Set rng2 = Range("G4:AB4")
    Set rng1 = Intersect(Target, rng2)
    If Not rng1 Is Nothing Then
        Application.EnableEvents = False
        Eingabe = rng1(1).Formula
        rng2.ClearContents
        rng1(1).Formula = Eingabe
        Application.EnableEvents = True
    End If
    If Target.Count > 1 Then Exit Sub 'nicht bei Markierung mehrerer Zellen
    Application.EnableEvents = False
    If Not Intersect(Target, Range("G6:CZ1000")) Is Nothing Then
        Cells(5, Target.Column) = Date ' Ausgabe TT:MM:JJ
    End If
    Application.EnableEvents = True
    End If
End Sub

Gruss Rainer

Bild

Betrifft: AW: Nur einen Eintrag im Bereich zulassen
von: Lemmi

Geschrieben am: 03.08.2008 21:52:05
Hallo Ramses,
hat geklappt ! Super!
Ein End If war allerdings in der Fehlermeldung! hab's weggenommen und alles war prima!
Danke!
Gruß
Lemmi

 Bild

Excel-Beispiele zum Thema "Nur einen Eintrag im Bereich zulassen"

Doppelte Einträge finden und löschen download Submenüeinträge download
Seitenanzahl eintragen download Letztes Speicherdatum eintragen download
Fußzeilen beim Öffnen eintragen download Wert in erste leere Zelle eintragen download
Häkchen eintragen download KGRÖSSTE über VBA eintragen download
Wochentage Mo - Fr in Tabelle eintragen download Arbeitsmappe unter dem Text eines Zelleintrags speichern download
Listbox-Eintrag durch Mausbewegung markieren download Wenn kein Eintrag, UserForm nicht schließen download
ListBox-Einträge auswechseln download Wechselweise den Eintrag einer 1 verhindern download
Anwendername in Fußzeile eintragen download Anwendername in Tabellenblatt eintragen download
Änderung der Kopfzeile bei Zelleintrag download Änderungsdatum eintragen download
Eintragung dokumentieren download Eintrag aus der Win.ini auslesen download
Wert in alle Arbeitsblätter eintragen download Summenformel unter Zahlenreihe eintragen download
ListBox bei Eintrag erweitern download Datum suchen und Wert eintragen download
Doppelte Zelleinträge listen download Termine in Jahrestabelle eintragen download
Beim Aktivieren einer CheckBox Häkchen in Zelle eintragen download Bilder in Videoliste eintragen und löschen download
Teilergebnisse in Zahlenreihe eintragen und löschen download Aufmaße erfassen und eintragen download
Adressdaten via Dialog in eine Adressdatei eintragen download Fußballergebnisse in Tabelle eintragen und zu HTML konvertieren download
Zwischensummen eintragen download Wert in UserForm-TextBox eintragen und selektieren download
Arbeitsblattnamen in Zelle eintragen download Summenformel per VBA eintragen download
Name des Verfassers in das Dokument eintragen download Beim Öffnen der Arbeitsmappe bedingt Datum eintragen download
Datum in Registry eintragen und auslesen download Von der Fundstelle eines Zellwertes abhängige Daten eintragen download
Nach Eingabe eines Kurzbegriffes Werte in Nebenzellen eintragen download Aktuelle Zeit über UserForm eintragen und Rennzeit berechnen download
Bei Doppelklick Kontext-Menü mit Listeneinträgen anzeigen download Mehrfachauswahl aus UserForm-ListBoxes in Tabelle eintragen download
Bei Eintragungen Wert des Eintrags plus Vorgangswert anzeigen download Zelleintrag durch OptionButton-Betätigung ein- und ausschalten download
Werte in Spalte A in Abhängigkeit des Werte in Spalte B eintragen download Bei Eintrag in Spalte A aktuelle Zeile kopieren download
Zeit eintragen und Tabelle minütlich als HTML-Datei speichern download Geschriebene Rechnung in Journal eintragen download
Leerzeichen aus einem Bereich löschen download Befindet sich die aktive Zelle in einem bestimmten Bereich? download
Mehrbereichsauswahl auf eine Seite drucken. download Spalten einer Mehrbereichsauswahl ausblenden. download
Bereich mit Maximalwert markieren download Benannten Bereich erweitern download
Bereich in RefEdit-Element eingeben und auslesen download Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche download
Letzter Wert aus einem Bereich download Bereiche bei Mehrfachauswahl prüfen download
Auswahl eines Zellbereiches verhindern download Bereiche in Abhängigkeit eines Zellinhaltes drucken download
Den selben Bereichsnamen in mehreren Tabellenblättern download Leere Zeilen und Spalten in ausgewähltem Bereich löschen download
URLs eines ausgewählten Bereiches in HyperLinks umwandeln download Werte aus Zellbereich in eine Matrix übernehmen und auslesen download
Zellauswahl auf den ausgewählten Bereich beschränken download Berechnung des ausgewählten Bereiches in der Statusleiste download
Bereiche auf Übereinstimmung vergleichen download Scrollbereich begrenzen download
Tabellenblattbereich als Email versenden download Serie von Bereichsnamenteilen einer Arbeitsmappe ändern download
Worte in einem vorgegebenen Bereich zählen download Bereichsnamen ermitteln und als Kommentare anzeigen download
Bereichsnamen in UserForm-ListBox auflisten und editieren download Einen vorgegebenen Tabellenblattbereich in neue Arbeitsmappe download
Werte aus einem nicht zusammenhängendem Bereich auslesen download Druckbereich variabel gestalten download
Tabellenblattbereich sortiert als Zellkontextmenü download Überschriften aus Spalte C in Spalte D in den relevanten Bereich download
Druckbereich bis zum ersten Nullwert festlegen download Werte eines bestimmten Wochentages und eines Zeitbereiches addieren download
Markierten Bereich mit jeweiligem Mwst-Satz multiplizieren download Cursor in bestimmtem Zellbereich in Eieruhr verwandeln download
Maximalwert aus einem Bereich ermitteln und in Spalte A eintragen download Formelbereich in Einzelelemente aufschlüsseln download
Datenreihenbeschriftungs-Quellbereich ausserhalb des Datenbereiches download Diagramm-Datenbereich über Schaltfläche festlegen download
Abfrage zum Kopierbereich von Startzelle, Zeilen- und Spaltenanzahl download Einen von einer Schlüsselziffer abhängigen Bereich kopieren download
Namen eines ausgewählten Bereiches auslesen download Den in einer Zelle genannten Bereich eines Blattes drucken download
Zugriff auf Zellen unter Verwendung eines Bereichsnamens download Bereich aus anderer Tabelle für 2 Sekunden anzeigen download
Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download Aktuellen Bereich in den Spalten A:F als Druckbereich download
Über UserForm-RefEdit-Steuerelement Bereich auswählen download Über InputBox festzulegenden Bereich kopieren download
Anzahl der Übereinstimmungen in zwei Bereichen ermitteln download Nur numerische Eingaben zulassen download
Bestimmte Anzahl von Zeichen zulassen download Einmalige Eingabe zulassen download
Im Textfeld nur Eingabe von 2 Ziffern zulassen, dann zum nächsten download Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern download
Nur Eintragungen in aktuellem Monat zulassen download Eingabe eines X nur einmal zulassen und Wert aufrufen download