Registriert seit: 12.10.2014
Version(en): 365 Insider (64 Bit)
Moin!
snb verlangt häufig ein "um die Ecke denken".
Wenn Du nicht gerade ein englisches Excel besitzt, heißt Sheet1 bei Dir natürlich Tabelle1.
Beachte, dass es sich um den .CodeName und nicht den .Name handelt.
Außerdem deklariert snb seine Variablen niemals, was zum Crash führt, wenn Du ein sinnvoll konfiguriertes VBA besitzt.
Anyway:
Wenn Du in einen Fehler läufst, ist es unabdingbar, dass Du uns auch den Text der Fehlermeldung verrätst!
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 08.09.2016
Version(en): 2010
Moin Ralf,
die Präzise Fehlermeldung lautet: Laufzeitfehler 424 "Objekt erforderlich", daß die Tabelle gemeint ist, war mir gerade noch klar :19:
Was das andere angeht, stoße ich gerade an meine Grenzen :20: Bin leider kein geviewter VBA-User. Kann nur wiedergeben, was schief läuft - das geforderte "um-die-Ecke-denken" kann ich hingegen wohl leider nicht bieten...
Vielleicht hast Du noch eine Hilfestellung?
VG
Klaus
Registriert seit: 12.10.2014
Version(en): 365 Insider (64 Bit)
(02.10.2017, 09:17)Calafati schrieb: …die Präzise Fehlermeldung lautet: Laufzeitfehler 424 "Objekt erforderlich", daß die Tabelle gemeint ist, war mir gerade noch klar.
Offensichtlich nicht, Klaus. ;)
VBA kennt das Objekt Sheet1 nicht, wie ich mutmaßte und nun in Deiner Datei gesehen habe!
Daher tausche
Sheet1 mit dem in Deiner Datei vorhandenen Objekt
Tabelle1Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 08.09.2016
Version(en): 2010
:19: :19: :19: Danke Ralf!
Weißt Du, wenn ein Seelsorger, der viel aus dem Bauch raus macht, auf Excel trifft, wo man ja sehr präzise sein muß, dann gibt es u.U. die wildesten Verwechslungen und gern auch mal Fehlinterpretationen!
ES KLAPPT!!!
DANKE AN ALLE, speziell an snb!!!
Viele Grüße
Klaus
Registriert seit: 08.09.2016
Version(en): 2010
Nur noch mal ne Frage für Macro-Laien:
was genau gibt die Option/Variable "Auto size" an?
Beste Grüße und morgen einen schönen Feiertag
Klaus
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallo Klaus,
im Prinzip fast 1:1 übersetzt automatische Größenanpassung.
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 08.09.2016
Version(en): 2010
Ah, verstanden. Vielen Dank dafür!
Kann man denn den Kommentarfeldern auch schon eine vorab definierte Größe zuweisen?
Ich fänd ein Kommentarfeld, daß etwas größer ist, sehr praktisch, selbst wenn ich es nicht voll schreibe.
Die ganze "größer Zieherei" über die Eckpunkte ist manchmal sehr umständlich.
Wenn das ginge, wäre das super!
Meine Laienfrage ist dann leider: wie?
Nochmal danke an alle Experten
Klaus
Registriert seit: 12.10.2014
Version(en): 365 Insider (64 Bit)
Warum sollte ich mir ein kleines Bier in einem Maßkrug servieren lassen?
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallo Ralf,
vielleicht willst Du nachschenken
Bei den Preisen für's Maß könnte es ja sein, Du hast Dein Bier im Rucksack mitgebracht.
Ansonsten habe ich hier mal ein Makro mit dem Makrorekorder aufgezeichnet, wie ich einen Kommentar einfüge und die Größe ändere. Das gibt dann eventuell den einen oder anderen Anhaltspunkt für den "richtigen" Code.
Code:
Sub Makro1()
'
' Makro1 Makro
'
'
Range("B2").Select
Range("B2").AddComment
Range("B2").Comment.Visible = False
Range("B2").Comment.Text Text:="Andre Schau:" & Chr(10) & "Aha"
Selection.ShapeRange.ScaleWidth 1.2, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
Range("B3").Select
End Sub
So, da habe ich dann das draus gemacht:
Code:
Sub Makro2()
With Range("B3").AddComment
.Visible = False
.Text Text:="Andre Schau:" & Chr(10) & "Aha"
.Shape.Width = 50
.Shape.Height = 40
End With
End Sub
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
Hallo Klaus,
(02.10.2017, 15:30)Calafati schrieb: Kann man denn den Kommentarfeldern auch schon eine vorab definierte Größe zuweisen?
damit Du nicht denkst, dass die Platte einen Sprung hat, hier die konkrete Antwort: Nein, das geht nicht.
Gruß Uwe