Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
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

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

Anzeige
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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige