Eintrag aus einer Range in andere Zellen übertrage

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

Beliebteste Forumthreads (12 Monate)

Eintrag aus einer Range in andere Zellen übertrage

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eintrag aus einer Range in andere Zellen übertrage

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

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread