Eintrag aus einer Range in andere Zellen übertrage

Axel · 2019-05-08T11:08:32+00:00

Hallo zusammen, ich möchte, dass der Eintrag einer Zelle aus einer Range in 4 andere Zellen übertragen wird. Beispiel: In B20:B30 stehen Begriffe: Kunden Produkt Einheit Bestellnummer . . Wenn ich eine Zelle aus dieser Range anklicke, wird der Begriff in vier andere Felder (E7, J7, E21, J21) übertragen. Also ich klicke auf B20 (Kunden), dann befüllen sich die Zellen E7, J7, E21, J21 mit "Kunden" (ohne Anführungsstriche natürlich), wenn ich auf B21 (Produkt) klicke, befüllen sich die Felder mit "Produkt" usw. Kann das ohne Makro gelöst werden und ich stehe gerade nur auf dem Schlauch? Vielen Dank vorab Axel

Hi Torsten,
danke für Deinen Lösungsansatz.
Das funktioniert grundsätzlich. Hier habe ich nur ein anderes Problem: Es besteht bereits ein Makro in dem Tabellenblatt:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Set changeRange = Range("B20:B31")
changeRange.Interior.Color = RGB(242, 242, 242)
If Not Application.Intersect(changeRange, Target) Is Nothing Then
'   Beim 1. Aufruf ist OldRange noch undefiniert
If OldRange = "" Then
OldRange = Target.Address
OldColor = Target.Interior.Color
'       Setze Hintergrundfarbe der aktiven Selection
Target.Interior.Color = 65535
Else
'       Setze alten Range auf alte Farbe
If Range(OldRange).Interior.Color = 65535 Then
Range(OldRange).Interior.Color = OldColor
End If
OldColor = Target.Interior.Color
'       Merke mir aktuellen Adresse für nächsten Aufruf
OldRange = Target.Address
'       Setze Hintergrundfarbe der aktiven Selection
Target.Interior.Color = 65535
End If
Else
Exit Sub
End If
End Sub

Das Makro aus Deinem Beispiel müsste ich irgendwie mit dem obigen kombinieren. Dazu benötigt man Kenntnisse, die ich nicht habe.
Hier das Makro aus Deinem Beispiel:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tarRange As Range
Set tarRange = Range("B20:B30")
If Intersect(tarRange, Target) Is Nothing Then Exit Sub
Cells(7, 5) = Target
Cells(7, 10) = Target
Cells(21, 5) = Target
Cells(21, 10) = Target
End Sub

Ich hab mal probiert, was aus dem zweiten Makro in das erste zu kopieren, aber das funktioniert gar nicht.
Ich bitte letztmalig um Unterstützung.
Vielen Dank an alle Helfer.
Axel

Hallo zusammen,
vielen Dank an alle.
Das finale Makro sieht so aus:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim tarRange As Range
Set tarRange = Range("B20:B31")
Set changeRange = Range("B20:B31")
changeRange.Interior.Color = RGB(242, 242, 242)
If Not Application.Intersect(changeRange, Target) Is Nothing Then
'   Beim 1. Aufruf ist OldRange noch undefiniert
If OldRange = "" Then
OldRange = Target.Address
OldColor = Target.Interior.Color
'       Setze Hintergrundfarbe der aktiven Selection
Target.Interior.Color = 65535
Else
'       Setze alten Range auf alte Farbe
If Range(OldRange).Interior.Color = 65535 Then
Range(OldRange).Interior.Color = OldColor
End If
OldColor = Target.Interior.Color
'       Merke mir aktuellen Adresse für nächsten Aufruf
OldRange = Target.Address
'       Setze Hintergrundfarbe der aktiven Selection
Target.Interior.Color = 65535
End If
Else
Exit Sub
End If
If Intersect(tarRange, Target) Is Nothing Then Exit Sub
Cells(7, 5) = Target
Cells(7, 10) = Target
Cells(21, 5) = Target
Cells(21, 10) = Target
End Sub

Als Ergebnis werden die Felder in der Range B20:B30 bei Klick gelb eingefärbt und beim Verlassen die alte Farbe wieder hergestellt
und die angeklickten Begriffe werden in die 4 Zielzellen übertragen.
Perfekt!
Beste Grüße
Axel

Eintrag aus einer Range in andere Zellen übertrage

Forumthread: Eintrag aus einer Range in andere Zellen übertrage

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Eintrag aus einer Range in andere Zellen übertrage

Forumthread: Eintrag aus einer Range in andere Zellen übertrage

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread