Code ändern damit MsgBox funktioniert
18.01.2006 07:43:20
Konni
wie muss nachstehender Code verändert werden, dass er automatisch auf Worksheet(5) zugreift, wenn die Zellen in Worksheet(1) leer sind?
Worksheet(1) ist das Tabellenblatt mit den neu einzutragenden Daten (kann daher zu Beginn noch leer sein, dann Zugriff auf Beispieldaten).
Worksheet(5) ist das Tabellenblatt mit Beispieldaten.
Vom Aufbau sind die Blätter identisch.
Die Funktion 'Doppelklick' bewirkt, dass in der Arbeitstabelle, in der die Überschriften aus Tabelle1 oder aus Tabelle5 (Beispiel) enthallten sind, den dort enthaltenen Text unterhalb der Überschrift in einer MsgBox wiedergibt.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 5 Then Exit Sub
'cancel = true unterdrückt den Editmodus der Zelle
Cancel = True
Set c = Worksheets(1).Range("c1:c1000").Find(Cells(Target.Row, Target.Column))
Text = ""
'nachstehend die Zeilenanzahl der MsgBox
For x = 1 To 4
If Trim(Worksheets(1).Cells(c.Row + x, c.Column)) = "" Then Exit For
Text = Text & vbLf & Worksheets(1).Cells(c.Row + x, c.Column)
Next x
a = MsgBox(Text, vbOKOnly, Worksheets(1).Cells(c.Row, c.Column))
End Sub
Ich hoffe, dass ich mich verständlich ausgedrückt habe und danke allen Helfern schon mal vorab.
Grüße
Konni
Anzeige