---

neu-1.JPG

Guten Morgen,

ich bin am formatieren meiner Stücklisten. Bei vielen kommt am Ende ein Text, der nicht übernommen werden soll. Bisher hab ich es so gelöst, das alles ab einer bestimmten Zeile (Wort "Zubeh├Âr:") gelöscht wird. Ich hänge ein Beispiel an, damit Ihr seht wie die Stückliste vorher aussah und nachher aussehen soll. Mein Code hierfür ist:

Sub Zubehoer_finden()

Range("E2").Select                                                  'markiert Zelle E2
    Selection.End(xlDown).Select                                    'markiert letzte ausgefüllte Zelle in Spalte E
    ActiveCell.Offset(1, 0).Select                                  'springt eine Zelle runter
   
    Range("A" & ActiveCell.Row & ":E" & ActiveCell.Row).Select      'markiert diese Zeile bis zur Spalte A
        Range(Selection, Selection.End(xlDown)).Select              'markiert zusätzlich ab hier alle ausgefüllten Zellen
        Selection.Delete                                            'loescht Markierung
       
End Sub

Soweit so gut. Ich möchte aber, bevor gelöscht wird,
das ein Dialogfenster aufgeht und mich fragt:            Auswahl Löschen?
                                                         JA(Button)  NEIN (Button)

Ich krieg es einfach nicht hin.

Danke für Eure Unterstützung

[Diese Nachricht wurde von röhmler am 04. Mai. 2016 editiert.]

[Diese Nachricht wurde von röhmler am 04. Mai. 2016 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

google kaputt? :-)

ich behelfe mir bei sowas mit -> vba abfrage ja nein
Die Lösungen die dann angezeigt werden, sollten ausreichend sein  

Code:

---

a = MsgBox("Deine Frage!", vbYesNo)
If a = vbNo Then Exit Sub Else
'Dein Makro
MsgBox ("Bin am Löschen")

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP