Nicht falsch verstehen
13.02.2003 22:52:14
Wolfgang Jung
Es ging mir nur um die Verbindung der zwei Makros.
Ich dachte, es sollte nicht schwer sein durch eine Warteschleife und einen Mausklick eine neue aktive Zelle zu wählen. War halt ein Irrtum Plan: Makro starten --> dann aufforderung zum Mausklick - und hinein mit dem Kommentar in die gewählte Zelle --> also keine fuzzy sondern eine manuelle Wahl)Die beiden Makros mal nachfolgend (Danke BerndL und Recherche) - werden halt jetzt 3 Mausklicks: Makro1 - Zelle wählen - Makro2
Sub Kommentar_Ablage()
Set Kommentar1 = New DataObject
Kommentar1.SetText ActiveCell.Comment.Text
Kommentar1.PutInClipboard
End Sub
´
´jetzt steht der Kommentar in der Zwischenablage
´wahl einer neuen Zelle durch Mausklick und weiter -->
´(da muß man natürlich was umstellen - würd ich schaffen)
Sub ClipBoard2Comment()
Dim ClipAbLage As DataObject
Dim StrClipAblage As String
Set ClipAbLage = New DataObject
ClipAbLage.GetFromClipboard
If StrClipAblage = "" Then
StrClipAblage = WorksheetFunction.Substitute _
(ClipAbLage.GetText, Chr(13), "")
End If
On Error GoTo Fehler
With ActiveCell
.AddComment
.Comment.Visible = False
.Comment.Text Text:=StrClipAblage
End With
On Error GoTo 0
Exit Sub
Fehler:
MsgBox "Schon ein Kommentar vorhanden!", vbCritical, "Abbruch"
End Sub
Es geht natürlich in erster Linie darum jemanden zu helfen - denn wer sich mit über 50 Jahren noch neu an den PC wagt ist es eigentlich wert (auch wenn die Wünsche manchmal schwierig sind)
Aber immerhin: DANKE dass sich einer damit beschäftigt hat !
(Mein VBA-Kurs startet bald - dann wird´s besser mit mir)