Thema Datum  Von Nutzer Rating
Antwort
Rot Fehler 2029-Löschen einer Zeile, wenn sie leer ist
26.11.2008 08:31:34 steffi
NotSolved
26.11.2008 10:16:36 Olaf
NotSolved
26.11.2008 11:38:40 steffi
NotSolved
26.11.2008 12:27:16 Holger
NotSolved
26.11.2008 15:46:57 jh
NotSolved
26.11.2008 15:48:18 Olaf
NotSolved

Ansicht des Beitrags:
Von:
steffi
Datum:
26.11.2008 08:31:34
Views:
2091
Rating: Antwort:
  Ja
Thema:
Fehler 2029-Löschen einer Zeile, wenn sie leer ist
Hallo

weiß jemand wo mein Fehler liegt?
Die Fehlermeldung kommt immer bei
If Tabelle1.Range("A" & i) = "" Then --> Fehler 2029

es soll in diesem Code überprüft werden ob in Spalte A Text oder Zahl steht und wenn Text enthalten ist soll dieser hinter den Text in Spalte H kopiert werden und die entstandene leere Zeile soll gelöscht werden.


Sub Formatieren()
Cells.Replace What:="#name?", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
' Bemerkungen in eine Zelle schreiben
For i = Range("A65536").End(xlUp).Row To 2 Step (-1)
If Tabelle1.Range("A" & i) = "" Then
Tabelle1.Range("A" & i).EntireRow.Delete
End If
If Not IsNumeric(Tabelle1.Range("A" & i)) Then
Tabelle1.Range("H" & i - 1).Value = Tabelle1.Range("H" & i - 1).Value & " /// " & Tabelle1.Range("A" & i).Value
Tabelle1.Range("A" & i).EntireRow.Delete
End If
Next


Gruß Steffi

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 Fehler 2029-Löschen einer Zeile, wenn sie leer ist
26.11.2008 08:31:34 steffi
NotSolved
26.11.2008 10:16:36 Olaf
NotSolved
26.11.2008 11:38:40 steffi
NotSolved
26.11.2008 12:27:16 Holger
NotSolved
26.11.2008 15:46:57 jh
NotSolved
26.11.2008 15:48:18 Olaf
NotSolved