AW: active Zelle von nicht aktiver Tabelle?
23.11.2009 10:02:23
nicht
Hallo Karsten,
die entsprechende Selektion kannst du wie folgt realisieren.
Gruß
Franz
'Code unter Tabelle 1 zum Merken des aktuell selektierten Wertes
'Die beschränkung auf Spalte 1 (A) ggf. ändern/anpassen
Private Sub Worksheet_Activate()
If ActiveCell.Column = 1 Then
Tab2_Aktiv = ActiveCell.Value
Else
Tab2_Aktiv = ""
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 1 Then
Tab2_Aktiv = ActiveCell.Value
Else
Tab2_Aktiv = ""
End If
End Sub
'Code im Modul1 - wichtig: Deklaration der Public Variablen
Public Tab2_Aktiv As Variant 'Merker für Wert der in Tabelle 2 aktiven Zelle
Sub b()
Dim wks As Worksheet, Zelle As Range
Set wks = Sheets("Lehrbericht")
With wks
.Activate
If Tab2_Aktiv "" Then
.Range("C1").Value = Tab2_Aktiv
Set Zelle = .Range("D1:BH1").Find(What:=Tab2_Aktiv, _
LookIn:=xlValues, LookAt:=xlWhole)
If Zelle Is Nothing Then
Set Zelle = .Range("BI1").End(xlToLeft).Offset(0, 1)
Zelle.Value = Tab2_Aktiv
End If
Zelle.Select
End If
End With
End Sub