---

Hi

ich würde gerne alle Zeilen entfernen bei dennen in spalte A

"" (nichts/leere zeile) oder irgendwo ein ? vorkommt

Kann mir da jemand helfen hab mit experimentier:

Public Sub tr_Remove_Fragezeichen()
    Range("A:A").Replace What:="?", _
                        Replacement:="", _
                        LookAt:=xlPart
End Sub

und woltle so erstmal die ? entfernen ?

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

---

Code:

---

Sub ZeilenLoeschen()
Dim Zeile%
Dim x

For Zeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If Cells(Zeile, 1) = "" Then x = 1 'wenn Zelle leer
    If Cells(Zeile, 1) = "?" Then x = 1 'wenn Zelle =?
    If x = 1 Then
        ActiveSheet.Rows(Zeile & ":" & Zeile).Delete
        x = 0
    End If
Next
End Sub

---

Ist korrigiert ;-)

Ja, sowas kommt vor wenn ma googelt, guttenbergt, den Code-Schnippsel anpasst und man zuletzt meint, Zeile ist verständlicher als Zaehler ;-)
auf Cad.de gibt es noch kein Option Explicit ;-)  [runkelruebe-edit: damit meinte ich auch eher den TO, der dann nicht nur weiß, DASS etwas falsch ist, sondern auch den Hinweis dazu hat, WAS das sein könnte ;-) [/rredit]

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

---

Hi, Gegenfrage: Muss es per Makro/VBA sein? Einfaches Filtern (ggf. mit kopieren ohne Duplikate an andere Stelle) ist nicht ausreichend?

------------------
DIN1055.de  |  Lastannahmen für Anwender

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

---

Per Makro/VBA wäre es komfortabler da ich dann eben

gelernt habe einen button daraus zu basteln :-)

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

---

Hi Thomas

bei deinem vba code bleibt er bei XXXXXX hängen (anwendungs oder objekt defenierter fehler)

Sub ZeilenLoeschen()
Dim Zeile%
Dim x

For Zaehler = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
XXXXXXXX    If Cells(Zeile, 1) = "" Then x = 1 'wenn Zelle leer
    If Cells(Zeile, 1) = "?" Then x = 1 'wenn Zelle =?
    If x = 1 Then
        ActiveSheet.Rows(Zeile & ":" & Zeile).Delete
        x = 0
    End If
Next
End Sub

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

---

Tausche ne Zeile weiter oben Zaehler gegen Zeile, das wird Thomas nur in den editor getippert haben 

Solche Fehler fallen einem besser auf, wenn man Option Explicit gesetzt hat.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

---

Ersetze in der Zeile

Code:

---

For Zaehler = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1

---

Zaehler durch Zeile

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

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

---

Ruebe war mal wieder schneller 

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

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

---

So habe nun den code ersetzt durch

Sub ZeilenLoeschen()
Dim Zeile%
Dim x

For Zeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If Cells(Zeile, 1) = "" Then x = 1 'wenn Zelle leer
    If Cells(Zeile, 1) = "?" Then x = 1 'wenn Zelle =?
    If x = 1 Then
        ActiveSheet.Rows(Zeile & ":" & Zeile).Delete
        x = 0
    End If
Next
End Sub

Leider passiert nichts :-) die Zeilen bleiben noch bestehen auch wenn ein ? vorhanden ist und auch wenn nichts in Spalte A steht.

Besten Gruß

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

---

xltest.zip

mal mittes C&P in Excel eingefügt, Fomular sowie AktiveX Button gehen...

ohne ein Blick auf deine Mappe stochern wir alle im Dunkeln...

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

---

Zur Info: Code kopiert, in leere Mappe eingefügt, Beispieldaten mit leeren Zellen, mit einem Fragezeichen und mit beliebigen anderen Zeichen gefüllten Zellen erzeugt, Code laufen gelassen, klappt.

Hast Du den Code auch bezogen auf das Arbeitsblatt richtig abgelegt? Sonst arbeitet der womöglich im Nirgendwo, was zwangsläufig keine Ergebnisse zeitigt.

------------------
Gruß, Carsten

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

---

Sortierungsvorlage.zip

Gute idee hier mal meine derzeitige Liste.

alle Felder in spalte A wo ein ? ist oder die leer sind müssen weg :-)

P.: Hatte beim rest hilfe so nen genie bin ich leider nicht hehe

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

---

Dann stimmen irgendwelche Deiner geposteten Ausgangsbedingungenn nicht 
Der code als solcher tut das, was er nach meinem Verständnis tun soll.

Versuch am besten selber, Dir die Kommentare hinter die einzelnen Zeilen zu schreiben, soll heißen, analysier Zeile für Zeile, was der Code machen soll. Tipp: Stell den Mauszeiger auf das Wort Zeile, dann siehst Du, welchen Wert diese Variable hat im Maushint und geh mit F8 schrittweise durch.
Wahrscheinlich kommst Du dann drauf, warum es in Deiner Mappe nicht funktioniert.
Schließlich wolltest DU ja extra ein VBA-Makro, damit Du lernst, wie man einen button bastelt 

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

---

Als erstes solltest Du mal dem Knopf das richtige Makro zuweisen und weiter ist Deine Fragestellung falsch, die sollte wahrscheinlich heissen wenn im Feld in Spalte A ein Fragezeichen enthalten ist

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

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

---

Der knopf für das löschen der überschüssigen zeilen fehlt derzeit. Der andere macht das was er soll die leerzeichen entfernen 

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

---

Code:

---

If InStr(1, Cells(Zeile, 1), "?") <> 0 Then x = 1 'wenn Zelle =?

---

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

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

---

Ihr seid so gut weg sind sie die ? :-)

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