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

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Auswahl

21.07.2007 11:55:00

alexander.oswald@hp.com
AW: Auswahl

21.07.2007 12:04:40

Chaos
AW: Auswahl

21.07.2007 12:06:26

Chaos
AW: Auswahl ohne WENN

21.07.2007 12:19:00

Renee
AW: Auswahl ohne WENN

21.07.2007 12:33:55

Steffi
AW: Auswahl ohne WENN

21.07.2007 18:56:48

Steffi
AW: Auswahl ohne WENN

21.07.2007 19:03:00

Chaos
AW: Auswahl ohne WENN

21.07.2007 19:06:37

Chaos

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

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

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

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

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

Beliebteste Forumthreads (12 Monate)

Forumthread: Auswahl

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread