ich habe folgendes Makro aufgenommen, doch es läuft anschließend nicht, bleibt in Zeile:
Selection.ShapeRange.ScaleHeight 2.39, msoFalse, msoScaleFromTopLeft
stehen mit der Fehlermeldung: Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft nicht.
Hier meine zwei Fragen:
1. Wie muss ich es schreiben, damit ich die Größe des Kommentarfeldes in die Länge ziehen kann und der ganze Kommentar zu sehen ist?
2. Am liebsten würde ich Excel per VBA sagen: Such Dir die Zelle mit dem Wert "ReKto" und füge dort folgenden Kommentar ein, damit ich unabhängig davon wäre, in welcher Spalte/Zelle sich dieser Wert aktuell befindet. Wie geht das?
Bereits im Voraus besten Dank für Eure Hilfe.
Grüße,
Heidi
Sub Kommentare()
' Makro6 Fügt den Überschriften Kommentare zum leichteren Verständnis bei.
Range("E1").Select
Range("E1").AddComment
Range("E1").Comment.Visible = False
Range("E1").Comment.Text Text:= _
"ReKto: Rechnungskonto; Existiert nur bei Kunden mit abweichender Rechnungsanschrift _
oder vorhandenem Hauptdebitor (z. B. Konzerne mit vielen Niederlassungen)"
Selection.ShapeRange.ScaleHeight 2.39, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.78, msoFalse, msoScaleFromTopLeft
Range("E1").Select
End Sub