Thema Datum  Von Nutzer Rating
Antwort
Rot makro nach if ausführen
15.12.2021 11:29:17 maja
NotSolved
15.12.2021 11:41:16 Gast63121
NotSolved
15.12.2021 12:00:20 maja
NotSolved

Ansicht des Beitrags:
Von:
maja
Datum:
15.12.2021 11:29:17
Views:
130
Rating: Antwort:
  Ja
Thema:
makro nach if ausführen

huhu,

ich möchte folgendes tun.

im aktiven worksheet abgefragt ob in einem Feld "TEXTTEXT" steht. wenn ja, wird ein Makro ausgeführt, ansonsten eine  Massagebox.

 

mein Stand: 

 


Sub loeschen()
'
' loeschen_ueberpruefung Macro

If Range ("P13").Value = "TEXTTEXT"
Then
   Sheets("sheet1").Select
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.SmallScroll ToRight:=14
    Columns("P:AD").Select
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.SmallScroll ToRight:=-14
    Range("A2").Select
    Sheets("Makros").Select
    Range("P13").Select
    Selection.ClearContents
    
Else

MsgBox ("es gibt nichts zum Löschen")

End If
End Sub
 

 

compile errr: expected then or GoTo 

 

 

???? ok, wo liegt man Fehler?


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot makro nach if ausführen
15.12.2021 11:29:17 maja
NotSolved
15.12.2021 11:41:16 Gast63121
NotSolved
15.12.2021 12:00:20 maja
NotSolved