Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Auswahl

Forumthread: Auswahl

Auswahl
21.07.2007 11:41:41
Steffi
Hallo Zusammen,
ich stehe wieder mal vor einem Problem. Ich möchte eine Auswahl über Kreuze Treffen.
Das heißt wie in der Excel-Datei, in Zelle C2 ein Kreuz soll den Wert aus Zelle B2 in Zelle D2 Eintragen.
Geht das Überhaupt.
Gruß und Danke
Steffi
https://www.herber.de/bbs/user/44314.xls

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Auswahl
21.07.2007 11:55:00
alexander.oswald@hp.com
Hi Steffi,
versuch mal die D-Spalte damit =IF(C2="x";B2;"") aufzufüllen - das sollte zu dem gewünschten Ergebnis führen.
Gruß
Alex

AW: Auswahl
21.07.2007 12:04:40
Chaos
Servus,
das einfachste ist:
=Wenn(C2="x"; B2;"") in D2 eintragen und runterkopieren für den benötigten Bereich.
Per Makro
Private sub Worksheet_Change(ByVal Target As Range)
Dim r As Integer
If Not Intersect(Target, Range("C:C")) Is Nothing then
If Target.Value = "x" Then
r = Target.Row
Range("D" & r).Value = Range("B" & r).Value
End if
End if
Diesen Code in das jeweilige Tabellenmodul kopieren, wo der Code ausgfeührt werden soll. (Alt+F11 im VBA-Explorer, z.B. Tabelle1)
Gruß
Chaos

Anzeige
AW: Auswahl
21.07.2007 12:06:26
Chaos
Sorry,
da fehlte noch ein End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Integer
If Not Intersect(Target, Range("C:C")) Is Nothing then
If Target.Value = "x" Then
r = Target.Row
Range("D" & r).Value = Range("B" & r).Value
End if
End if
End Sub


Gruß
Chaos

Anzeige
AW: Auswahl ohne WENN
21.07.2007 12:19:00
Renee
Mazwara Steffi,
Hier noch eine Lösung zum runterkopieren ab D2:

=B2*(C2="x")


Greetz Renee

AW: Auswahl ohne WENN
21.07.2007 12:33:55
Steffi
Hallo,
Danke an alle die zur Lösung beigetragen haben
Gruß Steffi

AW: Auswahl ohne WENN
21.07.2007 18:56:48
Steffi
Hallo,
kann man noch eine Funktion ein arbeiten, sodas die Zelle die Ausgewählt wurde sich
danach Färbt (Gelb) zB. Zelle B2.
Gruß Steffi

Anzeige
AW: Auswahl ohne WENN
21.07.2007 19:03:00
Chaos
Servus,
mit makro so:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Integer
If Not Intersect(Target, Range("C:C")) Is Nothing then
If Target.Value = "x" Then
Target.Interior.ColorIndex = 6
r = Target.Row
Range("D" & r).Value = Range("B" & r).Value
End if
End if
End Sub


ansonsten über Format- bedingte Formatierung - Zellwert ist-gleich-x, dann Farbe zuweisen.
gruß
Chaos

Anzeige
AW: Auswahl ohne WENN
21.07.2007 19:06:37
Chaos
sorry,
kleine Modifizierung des Codes:
Du wolltest ja B einfärben

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Integer
If Not Intersect(Target, Range("C:C")) Is Nothing Then
If Target.Value = "x" Then
Target.Offset(0, -1).Interior.ColorIndex = 6
r = Target.Row
Range("D" & r).Value = Range("B" & r).Value
End If
End If
End Sub


Gruß
Chaos

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