Thema Datum  Von Nutzer Rating
Antwort
30.11.2020 15:22:41 Kevin
NotSolved
30.11.2020 15:35:17 Mitnick
NotSolved
Rot Erste Zeile vor löschen schützen
 07.12.2020 16:40:04 Kevin
NotSolved
07.12.2020 18:09:25 Tsutomu Shimomura
*****
Solved
08.12.2020 10:51:07 Gast72633
NotSolved
08.12.2020 10:54:16 Tsutomu Shimomura
NotSolved
07.12.2020 19:28:11 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Kevin		 Datum:
07.12.2020 16:40:04		 Views:
674		 Rating:
     
Antwort:
  Ja
Thema:
Erste Zeile vor löschen schützen

Hallo Mitnick

 

Danke für den Denkanstoß,

so ganz hilft er mir aber noch nicht weiter. Ich weiß nicht so ganz woran es hakt, aber ich bekomme immer die Meldung, dass die Typen unverträglich sind.

 

Sub Archiv_Schaltfläche1_Klicken()

Dim loLetzte As Long

With Sheets("Archiv") 
  
Set Ueberschrift = Worksheets("Archiv").Rows(1)
  
If loLetzte = Ueberschrift Then
 
 Exit Sub
 
Else
  
        Call Zeileloeschen
  
  End If
  

End With


End Sub


Sub Zeileloeschen()


Dim loLetzte As Long

With Sheets("Archiv")


loLetzte = .Cells(Rows.Count, 2).End(xlUp).Row
 .Cells(loLetzte, 2).EntireRow.Delete


End With
End Sub

 

Was mache ich falsch? 

 

 

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
30.11.2020 15:22:41 Kevin
NotSolved
30.11.2020 15:35:17 Mitnick
NotSolved
Rot Erste Zeile vor löschen schützen
 07.12.2020 16:40:04 Kevin
NotSolved
07.12.2020 18:09:25 Tsutomu Shimomura
*****
Solved
08.12.2020 10:51:07 Gast72633
NotSolved
08.12.2020 10:54:16 Tsutomu Shimomura
NotSolved
07.12.2020 19:28:11 ralf_b
NotSolved