====== Zelle anklicken und in anderer Zelle Text anzeigen ======

__Problem:__\\ 
Auf einem Tabellenblatt (Tabelle1) werden in Spalte A Fragen gestellt.\\ 
Auf einem anderen Tabellenblatt (Tabelle2) werden in Spalte A Erläuterungen zu den Fragen in Tabelle1 gespeichert. D.h. in Tabelle1 Zelle A1 steht eine Frage und in Tabelle2 Zelle A1 steht eine Erläuterung.

Wenn nun in Tabelle1 auf Zelle A1 mit der Maus geklickt wird, dann soll in der Tabelle1 Zelle B1 die Erläuterung aus Tabelle2 A1 erscheinen.



__1. Lösung:__\\ 

<code>
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
With Columns("B")
    .Font.Color = vbWhite
    .EntireRow.RowHeight = 15
End With

If Target.Column = 1 Then
    With Target.Offset(, 1)
        .WrapText = True
        .Font.ColorIndex = xlAutomatic
        .EntireRow.AutoFit
    End With
Else
    Columns("B").WrapText = False
End If
Application.ScreenUpdating = True
End Sub
</code>



__2. Lösung:__\\ 

<code>
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub

With ActiveSheet
    With .TextBox1
        If Target.Column = 1 Then
            .Top = Target.Top
            .Width = 500
            .Height = 250
            .Text = Sheets("Tabelle2").Range(Target.Address).Text
            .Visible = True
        Else
            .Visible = False
        End If
    End With
End With
End Sub
</code>


__Quelle:__\\ 

Danke an Claus Busch und Andreas Killer:\\ 
http://answers.microsoft.com/thread/c4a75cb5-62a8-4bfb-97c1-504714ff96af