Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur einen Eintrag zulassen VBA ?

Forumthread: Nur einen Eintrag zulassen VBA ?

Nur einen Eintrag zulassen VBA ?
12.02.2009 13:33:00
Micha
Hallo liebe Spezialisten!
In einer Tabelle markiere ich bestimmte Bereiche indem ich ein “x“ in eine bestimmte Zelle eingebe.
Ich möchte gerne das wenn in der gleichen Zeile in einer anderen Zelle schon ein „x“ eingeben worden ist, dieses gelöscht wird.
Beispiel:
Wenn in der Zelle K9 ein "x" steht, und ich in der gleichen Zeile in der Zelle P9 ein weiteres "x" eintrage soll das "x" in K9 gelöscht werden.
Ich hoffe mich halbwegs verständlich ausgedrückt zu haben, falls nicht, bitte kurz nachhaken.
Danke für einen Tipp
Gruß
Micha
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Nur einen Eintrag zulassen VBA ?
12.02.2009 13:39:00
Oberschlumpf
Hi Micha
Versuch mal so:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "x" Then
For lispalte = 1 To Cells(Target.Row, Columns.Count).End(xlToLeft).Column
If Cells(Target.Row, lispalte).Value = "x" And Target.Column  lispalte Then
Application.EnableEvents = False
Cells(Target.Row, lispalte).Value = ""
Application.EnableEvents = True
End If
Next
End If
End Sub


Hilfts?
Ciao
Thorsten

Anzeige
AW: Nur einen Eintrag zulassen VBA ?
12.02.2009 13:49:00
Micha
Hey Thorsten,
Wooowh, Du bist genial !!!
Das ist die 100% Lösung.
1000 Dank
Gruß
Micha
Bereich = Zeile ? (owT)
12.02.2009 13:52:00
Renee

AW: Bereich = Zeile ? (owT)
12.02.2009 15:08:00
Oberschlumpf
Hi Renee
Manchmal sind ein paar Wörter mehr nicht überflüssig, wie z Bsp jetzt...denn..ich weiß (noch) nicht, was deine mit ? als Frage deklarierte Kurzmitteilung bedeutet.
Thx & Ciao
Thorsten
Anzeige
More words, about nothing
12.02.2009 15:15:00
Renee
Hi Thorsten,
In der Anfrage heisst es: "In einer Tabelle markiere ich bestimmte Bereiche indem ich ein “x“ in eine bestimmte Zelle eingebe.", was mich zur Annahme verführte, das kein 2tes "x" in dem Bereich vorkommen darf (siehe NoNet's Lösung). Dein Lösung ist aber richtig, weil sie sich auf den nächsten Satz der Anfrage bezieht: "...steht, und ich in der gleichen Zeile...". Der Widerspruch liegt also bei mir oder der Originalanfrage.
Sorry Renée
Anzeige
AW: More words, about nothing
12.02.2009 15:22:00
Oberschlumpf
Hi Renee
Recht haste schon.....die Erstfrage enthält einen Widerspruch.....wie so oft bei vielen Fragenden....deshalb "konzentrierte" ich mich auch auf den Teil, zu dem mir am schnellsten eine Lösung einfiel ;-)
Trotz alledem Danke für deine Erklärung, mit derer Hilfe ich deine vorherige Kurzmeldung nun einwandfrei verstehe ;-)
Ciao
Thorsten
Anzeige
Highlander : Es kann nur EIN "x" geben
12.02.2009 13:48:00
NoNet
Hallo Micah,
kopiere folgendes Makro in das Klassenmodul des entsprechenden Tabellenblattes :
VBA-Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngZelle As Range, rngBeeich As Range
    Set rngBereich = [E3:T10] 'nur Zelle in in Bereich E3:T20 überprüfen
    If Not Intersect(Target, rngBereich) Is Nothing Then
        Application.EnableEvents = False 'Ereignissteuerung temporär deaktivieren
        For Each rngZelle In Intersect(Target, rngBereich)
            'In allen Zellen der gleichen Zeile das "x" löschen :
            Intersect(rngZelle.EntireRow, rngBereich).Replace "x", "", lookat:=xlWhole, MatchCase:=False
            rngZelle.Value = "x" '"X" in Zelle eintragen
        Next
        Application.EnableEvents = True 'Ereignissteuerung wieder aktivieren
    End If
End Sub
Den Bereich [E3:T10] musst Du entsprechend anpassen !
Gruß, NoNet
AW: Highlander : Es kann nur EIN "x" geben
Micha

Hallo NoNet,
auch Dir vielen Dank, klappt auch bestens :-)))
Tolles Forum, tolle Leute :-)
Gruß
Micha
Anzeige
AW: Highlander : Es kann nur EIN "x" geben
12.02.2009 13:53:00
Micha
Hallo NoNet,
auch Dir vielen Dank, klappt auch bestens :-)))
Tolles Forum, tolle Leute :-)
Gruß
Micha
;

Forumthreads zu verwandten Themen

VBA Ausgabe in neue Datei
MarkusL

Hallo,
ich habe folgendes Problem:
In einer Datei befinden sich nachfolgende Datensätze
Jahr Monat Feld_1 Feld_2 Feld_3 Feld_4 Feld_5 usw.
es sollen nun per VBA nach Abfrage von Jahr und Monat ein neuer Datensatz in einer neuen Datei erzeugt werden, der allerdings nur noch die F...
08.08.2008 17:42:00
Thread-ID: 1000377
3 Beiträge
VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 Beiträge
Untergenze in VBA
Axel

Hallo alle miteinander,
ich nicht weiß einfach nicht wie ich die Untergrenze Funktion in mein UserForm einbinden kann.
Kurze Erklärung:
Ich habe ein UserForm mit einem Drehfeld zum durchblättern der Zeilen, in Spalte 27 ist ein Zahlenwert mit zwei Kommastellen eingetragen, das nach...
11.08.2008 10:10:47
Thread-ID: 1000733
7 Beiträge
Anzeige
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
Anzeige
mit Find (VBA) nach Datum suchen
Werner

Hi!
Ich habe folgendes Problem:
Ich habe eine Spalte mit Datumseinträgen (z.B.:13.04.1953, 17.12.1970, ...)
Suche ich mit
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(What:="17")
bekomme ich ein Ergebnis
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(W...
13.08.2008 23:54:00
Thread-ID: 1001685
8 Beiträge
Liste "definierter Namen" per VBA?
David

Hallo zusammen,
ist es per VBA möglich, die in einer Tabelle definierten Namen auszulesen, in einem neuen Sheet aufzulisten und daneben den/die mit dem Namen verbundene(n) Bereich bzw. Formel?
Ich würde mir gern bei umfangreichen Namensdefinitionen das Nachschauen im Menü ersparen, da j...
14.08.2008 12:15:44
Thread-ID: 1001809
5 Beiträge
Button in B1 passen einfügen? VBA
Tom

Hi,
ich will einfach per VBA ein Button der auf eine Makro verlinkt ist, in das aktive Tabellenblatt einsetzt und zwar genau passend in die Zelle B1.
Kann mir da vll. einer den Code dafür sagen mit dem Makrorekorder muss ich das passend ziehen das gefällt mir nicht so.
mfg Tom
...
14.08.2008 16:34:00
Thread-ID: 1001915
2 Beiträge
Initialwert bei string * 10
Eddie

Hallo,
ich habe ein kleines Problem mit der Type Anweisung.
Ich definiere in der Struktur u.a.
Type TestTest teststring As String * 10 End Type Dim Test(500) As TestTest
Zu meinem erstaunen, steht in z.B. Test.teststring, bevor die Variable das erste mal beschrieben wurde, 10...
15.08.2008 11:03:00
Thread-ID: 1002107
4 Beiträge
Anzeige
Wie aus VBA Iteration erzwingen?
Lou

Hi,
nachdem es mit meinem ersten Problem so super geklappt hat, gleich ein zweites hinterher:
Ich habe auf einem Tabellenblatt rekursiven Formeln mit Zirkelbezug, welche durch Iteration berechnet werden sollen. Da die Anwender, die die Dateien nutzen werden nicht zu den EXCEL-Experten z...
15.08.2008 13:36:00
Thread-ID: 1002165
2 Beiträge
Hyperlink Funktion mit VBA auswerten
zapultin

Hallo!
Ich habe die Hyperlinkfunktion in einem Excel Blatt verwendet. Nun will ich per VBA ermitteln, ob der Hyperlink funktioniert.
Komischerweise gibt der Zugriff RANGE.HYPERLINKS auf die Zelle wo ich die Hyperlinkfunktion verwendet keinen Hyperlink!
Nur wenn ich in der Zelle per...
16.08.2008 11:17:00
Thread-ID: 1002331
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige