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:
961
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.

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
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