Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellinhalte referenzieren und ändern anderer Zelle

Zellinhalte referenzieren und ändern anderer Zelle
27.09.2006 17:00:31
Thomas
Schönen Abend,
Ich hab schon eine Weile gesucht aber das Passende leider nicht gefunden.
Folgendes Problem:
Wird in Zelle F1 ein Wert (zb "ok") eingetragen so soll der Wert der Zelle B1 gelöscht und in zelle d1 auf "Erledigt" geändert werden.
Ist der Wert nicht "OK" sollen die Werte der Zellen B1 und D1 beibehalten werden.
Das soll für einen bestimmten Bereich in Spalte F gelten (F17:F99)
Leider ist VBA nich unbedingt meine stärke :(
Besten Dank im Voraus
Tom
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalte referenzieren und ändern anderer Zelle
27.09.2006 17:40:15
IngGi
Hallo Tom,
mal sehen, ob ich das richtig verstanden habe. In's Modul des Tabellenblattes (Rechtsklick auf den Reiter des Tabellenblattes und dann Klick auf "Code anzeigen"):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Not Intersect(Target, Range("F17:F99")) Is Nothing Then
If Target.Cells.Count = 1 Then
Target.Offset(0, -4).ClearContents
Target.Offset(0, -2) = "erledigt"
End If
End If
End Sub
Gruß Ingolf
Anzeige
AW: Zellinhalte referenzieren und ändern anderer Zelle
28.09.2006 09:20:59
Thomas
Hallo Ingolf,
Dankeschön,
Im prinzip richtig so, nur das die Werte nur dann geändert werden dürfen wenn es sich in den Zellen F17:F99 um einen Bestimmten Wert(OK) handelt und nicht generell ein Wert eingetragen wird.
Thx
AW: Zellinhalte referenzieren und ändern anderer Zelle
28.09.2006 09:28:32
Thomas
Hallo Ingolf,
Dankeschön,
Im prinzip richtig so, nur das die Werte nur dann geändert werden dürfen wenn es sich in den Zellen F17:F99 um einen Bestimmten Wert(OK) handelt und nicht generell ein Wert eingetragen wird.
also:
If Target.Cells.Value = "OK" Then
Thx
Anzeige
AW: Zellinhalte referenzieren und ändern anderer Zelle
29.09.2006 08:17:52
IngGi
Hallo Tom,
du hast die Lösung ja schon selbst vorweggenommen. Es sollte allerdings einfach Target heißen, statt Target.Cells.Value, also:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Not Intersect(Target, Range("F17:F99")) Is Nothing Then
If Target.Cells.Count = 1 Then
If LCase(Target) = "ok" Then
Target.Offset(0, -4).ClearContents
Target.Offset(0, -2) = "erledigt"
End If
End If
End If
End Sub
Und durch die LCase-Funktion wird "ok" unabhängig von Groß-/Kleinschreibung akzeptiert.
Gruß Ingolf
Anzeige
AW: Zellinhalte referenzieren und ändern anderer Zelle
29.09.2006 14:04:06
Thomas
super,
Danke für die Info, sieht gleich viel besser aus
Schönes WE
Tom
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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