MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 11.02.2019, 14:22   #1
fl0wing
Neuer Benutzer
Neuer Benutzer
Standard VBA - AddComment Laufzeitfehler 1004

Hallo,

ich habe folgenden Code:

Code:

Sub farbe_braun()
   'ActiveSheet.Unprotect
   GrundDR = Application.InputBox("Kommentar zur Abwesenheit:")
    
    With Selection.Interior
    
        .ColorIndex = 53
        Selection.Value = "D"
        Selection.ClearComments
        Selection.AddComment
        Selection.Comment.Visible = False
        Selection.Comment.Text Text:=GrundDR
         
         
             
       
    End With
'ActiveSheet.Protect DrawingObjects:=True, contents:=True, Scenarios:=True
End Sub
Wenn ich jedoch beim der InputBox auf Abbrechen klicke, kommt der Laufzeitfehler 1004. Wie kann ich diesen umgehen? Am besten, dass beim Abbrechen nichts erstellt wird.

Vielen Dank im Voraus!
fl0wing ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.02.2019, 14:27   #2
EarlFred
MOF Guru
MOF Guru
Standard

Hallo,

so?
Code:

Option Explicit

Sub farbe_braun()
   'ActiveSheet.Unprotect
   
Dim GrundDR  As Variant
   
GrundDR = Application.InputBox("Kommentar zur Abwesenheit:")
    
If GrundDR <> False Then
  With Selection
    .Interior.ColorIndex = 53
    .Value = "D"
    .ClearComments
    .AddComment GrundDR
    .Comment.Visible = False
  End With
End If
'ActiveSheet.Protect DrawingObjects:=True, contents:=True, Scenarios:=True
End Sub
Grüße
EarlFred

__________________

Datum und Uhrzeit, Makrorekorder-Code entschlacken, {Matrixformeln}
Tutorials zu Pivottabellen: Kurzeinstieg; Dynamischer Datenbereich; Daten und Zeiten gruppieren
Für 7 meiner Beiträge haben sich die Hilfesuchenden mit einer Spende an Wikipedia, die Tafeln oder Hilfe für krebskranke Kinder eV bedankt (das entspricht 0,049% per 19.12.2018) - eine tolle Geste!
EarlFred ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.02.2019, 14:36   #3
fl0wing
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Danke!
fl0wing ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:24 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.