Tabellenkalkulation

Hilfe zu Makros

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo Leute, erstmal muss ich sagen, dass ich fast überhaupt keine Ahnung von Makros habe. :( Folgendes Problem: In der Spalte C kommt entweder eine 0 oder eine 1 vor. Wenn dort eine 0 steht, dann soll die ganze Zeile gelöscht werden. Danke im Vorraus. MfG Astaroth

Antwort 1 von Saarbauer

Hallo,

versuch es mal mit dem nachfolgenden Makro

Sub Vergleichen_auf_Null()
letzteZeile = Range(C65536").End(xlUp).Row
For i = 1 To letzteZeile
If Range("A" & i).Value = 0 Then
Rows(j).Select
Selection.Delete Shift:=xlUp
End If
Next i
End Sub

Tabellebezeichnungen wären anzupassen

Gruß

Helmut

Antwort 2 von Saarbauer

Hallo,

ein Schreibfehler

If Range("A" & i).Value = 0 Then

muß

If Range("C" & i).Value = 0 Then

heissen

Gruß

Helmut

Antwort 3 von Astaroth

Hallo Helmut

Danke auf jeden Fall für deine Hilfe :)

Aber irgendwie mag er Rows(j).Select das nicht.
Wenn ich es in Rows(i).Select ändere, dann führt er das Makro aus, die Zeilen werden aber trotzdem nicht gelöscht...

Wäre dir sehr dankbar, wenn du mir weiter helfen könntest.

MfG
Astaroth

Antwort 4 von Saarbauer

Hallo,

das kommt vom umschreiben ohne groß zu testen, sorry

Sub Vergleichen_auf_Null()
letzteZeile = Range("a65536").End(xlUp).Row
For i = letzteZeile To 1 Step -1
If Range("C" & i).Value = 0 Then
Rows(i).Select
Selection.Delete Shift:=xlUp
End If
Next i
End Sub

mein getesteter Vorschlag

Gruß

Helmut

Antwort 5 von Astaroth

Es geht :)))))

DANKE VIELMALS!!!

LG
Astaroth