Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

alle zeilen mi "1" in spalte "c" löschen

alle zeilen mi "1" in spalte "c" löschen
29.10.2004 02:18:12
robag
Hallo liebe Helfer,
ich brauche ein makro, dass mir alle zeilen löscht wenn in Zelle c.. eine 1 steht. Der Entscheidungsbereich beginnt in Zelle A4 bis E4 und soll bis zum Ende des Blattes gehen. Wichtig ist, dass die Spalten nach E nicht mit in die Entscheidung mit einbezogen werden sollen (z.B. in F4 oder F1000 darf eine 1 stehen).

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alle zeilen mi "1" in spalte "c" löschen
=Peter=
Hallo,
ich habe hier ein Makro von Thomas Ramel gefunden. Bei diesem Makro werden alle Zeilen gelöscht in denen in Spalte A eine '1' steht. Wenn du in folgenden Zeilen die '1' durch eine '3' (=Spalte C) ersetzt hast du zumindest mal einen Ansatz auf dem du aufbauen kannst:
If Cells(letzteZeile, 1) = 1 Then
Cells(letzteZeile, 1).EntireRow.Delete
Public 

Sub Zeilenloeschen()
'Autor: Thomas Ramel
'Wenn in Spalte A eine '1' steht wird diese Zeile gelöscht
Dim letzteZeile As Long
If ActiveSheet.Range("A65335") <> "" Then
letzteZeile = 65335
Else
letzteZeile = ActiveSheet.Range("A65335").End(xlUp).Row + 1
End If
Do
letzteZeile = letzteZeile - 1
If Cells(letzteZeile, 1) = 1 Then
Cells(letzteZeile, 1).EntireRow.Delete
End If
Loop Until letzteZeile = 1
End Sub

Gruss
Peter
Anzeige
AW: bitte noch eine kleine Hilfe
29.10.2004 20:52:47
robag
Erst einmal vielen Dank. Ich habe den code etwas verändert und er brachte auch gute Ergebnisse. Nunn wollte ich den code noch etwas verändern, die Zeile soll jetzt gelöscht werden wenn der Wert in C kleiner als 3 ist. Das funktioniert auch aber leider werden die ersten 3 Zeilen auch gelöscht, weil sie leer und somit kleiner als 3 sind.
&ltpre&gt
Sub kleiner_3_entfernen()
'Wenn in Spalte C ein Wert kleiner 3 steht, wird diese Zeile gelöscht
Dim letzteZeile As Long
If ActiveSheet.Range("A65335") &lt&gt "" Then
letzteZeile = 65335
Else
letzteZeile = ActiveSheet.Range("A65335").End(xlUp).Row + 1
End If
Do
letzteZeile = letzteZeile - 1
If Cells(letzteZeile, 3) &lt 3 Then
Cells(letzteZeile, 3).EntireRow.Delete
End If
Loop Until letzteZeile = 1
End Sub&lt/pre&gt
Wie kann ich den Bereich so eingrenzen, dass der Bereich erst in der Zeile 4 beginnt?
Wenn ich schreibe
If ActiveSheet.Range("A65335") &lt&gt "" Then
kommt der Fehler Laufzeitfehler 13 Typen unverträglich
Anzeige

299 Forumthreads zu ähnlichen Themen

Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
Anzeige
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Letzter Eintrag von Zeile in Spalte A übernehmen
Zeile

Guten Tag
Ich suche nach einer Formel, die mir den letzten eingetragenen Wert (Wert aus hinterster Spalte) von verschiedenen Zeilen jeweils in die gleiche Zeile in Spalte A einträgt.
Hat mir jemanden einen Tipp?
Danke, Peter
03.09.2008 12:58:17
Thread-ID: 1007081
3 Beiträge
Anzeige
Zeilen löschen in Abhängigkeit von 2 Spalten
2

Hallo zusammen,
ich habe ein Makro über den Rekorder aufgezeichnet und versuche es anzupassen. Leider kenn ich mich in der Syntax nicht aus.
Ziel:
In einem markierten Bereich die Zeilen löschen, die in Abhängigkeit von zwei Spalten eine 0 enthalten.
D.h. Spalten X und Y enthalte...
06.10.2008 14:00:00
Thread-ID: 1014434
3 Beiträge
Neuanordnung von Quelldaten aus Spalte in Zeile
Quelldaten

Hallo liebe Excel-Freunde,
folgendes Excel-Problem kann ich nicht lösen:
ich habe zwei Excelspalten mit Daten.
Die erste Spalte enthält eine fortlaufende Nummerierung. In der zweiten Spalte befinden sich untereinander zwei zusammengehörige Werte, also z. B. so:
Spalte 1___Spalt...
10.10.2008 15:05:18
Thread-ID: 1015600
7 Beiträge
Spalte ausblenden, wenn in Zeile 9, die Füllfarbe?
Selma

Hallo Leute,
wie kann ich die Spalten die in Zeile 9 folgende Füllfarbe 6, 39, 46, 48, 51, 52, 53 haben, ausblenden?
Vielen Dank im Voraus !
Liebe Grüße,
Selma
13.10.2008 11:06:05
Thread-ID: 1015964
17 Beiträge
Spalte ausblenden, wenn in Zeile 7 der Zelleninhal
Selma

Hallo Leute,
wie kann ich die Spalten ausblenden, die in Zeile 7 als Zelleninhalt "x" oder "D" haben?
Vielen Dank im Voraus !
Liebe Grüße,
Selma
29.10.2008 15:41:00
Thread-ID: 1020332
4 Beiträge
Zeilen einfügen vor Zeile mit Wert XX in Spalte D
NetMare

Hallo zusammen,
ich möchte gern per script eine Zeile an bestimmten Stellen einfügen.
Das Einfügen klappt ja über
Worksheets("Tabelle1").Rows(7).Insert
ganz gut...
Ich habe mehrere Zeilen in der Liste mit unterschiedlichen Dingen die ich mir auch über scripte erstellen lasse...
25.11.2008 11:49:00
Thread-ID: 1027648
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
5
10
2
3
2
6
16
3
1
3
2
4
7
3
4
3
6
1
5
2
3
8
1
2