Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel

Forumthread: Formel

Formel
21.06.2007 13:18:00
ABO
Hallo Excel Profis
Ich habe mal wieder ein Problem!
In die Spalte "F" Kann was eingetragen werden.
Wenn in der Spalte "F" was eingetragen wurde erscheint in der Spalte "A" ein "Ok.".
Weiterhin würde ich gerne, wenn in der Spalte "A" ein "Ok." erscheint, das in die Spalte "C" ein "X" eingetragen wird. Jedoch soll in der Spalte "C" keine Formel stehen!.
Ist es möglich wenn z.B. in der Spalte B eine Formel steht die dann ein "X" in die Spalte "C" einträgt!
Oder kann man das direkt in einem mit der Formel, die in der Spalte "A" steht erledigen?
Im Voraus vielen Dank!
Gruß ABO

Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel
21.06.2007 13:23:22
Rudi
Hallo,
man kann keine Werte per Formel in andere Zellen schreiben.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Formel
21.06.2007 13:24:41
ABO
Ist es denn irgendwie anders möglich?
Über ein Makro?
Gruß ABO

AW: Formel
21.06.2007 13:28:00
Rudi
Hallo,
ja.
in das Klassenmodul der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then Target.Offset(0, 3) = "X"
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Formel
21.06.2007 13:33:23
Matthias
Hallo,
und falls das X auch wieder gelöscht werden soll, und falls auch mal mehrere Spalten gleichzeitig bearbeitet (gelöscht) werden sollten:

Private Sub Worksheet_Change(ByVal Target As Range)
Const Bereich = "F1:F28" ' Bereich, der überwacht wird
Dim rng As Range, z As Range
Set rng = Intersect(Target, Range(Bereich))
If Not rng Is Nothing Then
For Each z In rng
z.Offset(0, -3) = IIf(z = "", "", "X")
Next z
End If
End Sub


Gruß Matthias

Anzeige
AW: Formel
21.06.2007 13:33:57
ABO
Hallo,
grundsätzlich OK!
Aber er trägt mir das X in die Spalte I.
Wie muss man das Makro umschreiben damit das X in die Spalte C eingetragen wird?
Gruß ABO

siehe unten - o.T.
21.06.2007 13:35:00
Matthias
-

AW: siehe unten - o.T.
21.06.2007 13:37:00
ABO
Hallo
Ist es auch möglich wenn die Spalte F leer wird, das X wieder zu löschen?
Gruß ABO

Anzeige
AW: Formel
21.06.2007 13:30:17
Rudi
Hallo,
so natürlich:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then Target.Offset(0, -3) = "X"
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Formel
21.06.2007 13:56:00
Chris
Servus,
möchte dich nicht weiter verwirren.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s
If Not Intersect(Target, Range("D2:D65536")) Is Nothing Then
If Target.Value  "" Then
Range("A65536").End(xlUp).Offset(1, 0).Value = "Ok"
End If
End If
If Not Intersect(Target, Range("A2:A65536")) Is Nothing Then
If Target.Value = "Ok" Then
Range("A65536").End(xlUp).Offset(0, 0).Select
s = ActiveCell.Row
Range("C" & s).Value = "X"
End If
End If
End Sub


schreibt ok in Spalte A und X in Spalte C. Funktioniert allerdings erst ab Zeile 2.
Gruß
Chris

Anzeige
;

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