Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
940to944
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
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

doppeltet Überschriftenzeilen per VBA löschen

doppeltet Überschriftenzeilen per VBA löschen
09.01.2008 13:41:18
{mskro}
Hallo Excelfreunde,
ich benötige wieder mal eure Hilfe.
Kann mir bitte jemand sagen, wie ich am schnellsten per VBA doppelte Überschriftenzeilen löschen kann. Mit Einlesen der Zelle "A1" und einer Schleife bis "A?" = OK, das bekomme ich hin. Aber geht das vielleicht auch schneller und ohne Schleife?
Gruß Manfred

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: doppeltet Überschriftenzeilen per VBA löschen
09.01.2008 13:46:42
Renee
Hi Manfred,
Bitte definiere doppelte Überschriftenzeilen !
oder wäre das eine Lösung?

ActiveSheet.[1:2].ClearContents


GreetZ Renée

AW: doppeltet Überschriftenzeilen per VBA löschen
09.01.2008 13:52:52
{mskro}
Hallo Rene,
nein, das ist nicht die Lösung. Bei deiner Lösung wird die Zeile 1 gelöscht.
Definition "Doppelte Überschriftenzeile":
Zeile 1 stehen die Überschriften, durch Zusammenkopieren gibt es in diversen anderen Zeilen völlig identische Zeilen, wie die Zeile 1. Nun sollen alle Zeilen, mit Ausnahme der Zeile 1 gelöscht werden. Ich hoffe nun ist es klarer geworden.
Gruß Manfred

Anzeige
AW: doppeltet Überschriftenzeilen per VBA löschen
09.01.2008 14:14:00
FM
hmm also wenn ich das richtig verstehe würde ich das so machen:

Sub doppelteloeschen()
dim scell
for scell = x to 1 step -1    ' statt x zeilennummer wo es unten losgeht
if sheets("name").cells(scell, 1).value = sheets("name").range("zelle mit überschrift").value  _
then
Rows(scell).Delete
end if
next scell
End Sub


AW: doppeltet Überschriftenzeilen per VBA löschen
09.01.2008 14:30:00
{mskro}
Hallo ?,
gesucht wird keine Schleife, sondern eine kürzere Version, falls es sie gibt.
Trotzdem Danke.

AW: doppeltet Überschriftenzeilen per VBA löschen
09.01.2008 14:39:00
FM
sorry hatte überlesen dass du was andere suchst

AW: doppeltet Überschriftenzeilen per VBA löschen
09.01.2008 14:17:00
Reinhard
Hi Manfred,
hilt dir das weiter, so werden alle Zeilen versteckt, deren Zelle in A nicht A1 entsprechen.
Jetzt müßtest du nur noch die verbliebenen Zeilen außer Zeile 1 löschen

Sub tt()
Range("A:A").ColumnDifferences(Range("A1")).EntireRow.Hidden = True
End Sub


Gruß
Reinhard

Anzeige
AW: doppeltet Überschriftenzeilen per VBA löschen
09.01.2008 14:31:50
{mskro}
Hallo Reinhard,
nein, Ausblenden reicht nicht aus, die Zeilen sollen schon gelöscht werden.
Gruß Manfred

AW: doppeltet Überschriftenzeilen per VBA löschen
09.01.2008 14:38:39
FM
geht meine Lösung auch nicht ? Dann muss ich mir nochmal Gedanken machen :)

AW: doppeltet Überschriftenzeilen per VBA löschen
09.01.2008 14:38:00
Reinhard
Hi Manfred,
ich habe die versteckt die nicht gelöscht werden sollen.
Probiers mal so:

Sub tt()
Range("A:A").ColumnDifferences(Range("A1")).EntireRow.Hidden = True
Range("A2:A65536").SpecialCells(xlCellTypeVisible).Delete
Range("A:A").EntireRow.Hidden = False
End Sub


Gruß
Reinhard

AW: doppeltet Überschriftenzeilen per VBA löschen
09.01.2008 14:59:00
{mskro}
Hallo Reinhard,
bei der Version werden nicht die ganzen Zeilen gelöscht, sondern nur die Spalten "A"
Gruß Manfred

Anzeige
AW: doppeltet Überschriftenzeilen per VBA löschen
09.01.2008 15:05:25
Reinhard
Hallo Manfred,
okay, dann halt so:

Sub tt()
Range("A:A").ColumnDifferences(Range("A1")).EntireRow.Hidden = True
Range("A2:A65536").SpecialCells(xlCellTypeVisible).EntireRow.Delete
Range("A:A").EntireRow.Hidden = False
End Sub


Gruß
Reinhard

Lösung gefunden - oder geht es noch kürzer?
09.01.2008 15:10:08
{mskro}
Hallo Reinhard,
dank deiner Hilfe die Lösung gefunden.

Sub Test()
Range("A:A").ColumnDifferences(Range("A1")).EntireRow.Hidden = True
Rows("2:65536").SpecialCells(xlCellTypeVisible).Delete
Range("A:A").EntireRow.Hidden = False
End Sub


Gruß Manfred

Anzeige
dann is ja gut und ZU (owT)
09.01.2008 15:34:46
Renee

299 Forumthreads zu ähnlichen Themen

If Then mit mehreren Schritten
Pfannen-Meister

Guten Morgen,
leider ist mein Betreff etwas unglücklich formuliert, aber ich weiß nicht, wie ich mein Problem in wenigen Worten zusammen fassen soll:
In VBA nutze ich eine If Then Anweisung. Ist die Bedingungen erfüllt, so soll er mehrer Schritte abarbeiten. Aber wie sage ich ihm, daß...
13.08.2008 10:34:00
Thread-ID: 1001416
5 Beiträge
Anzeige
VBA - If Anweisung mehrerer Abfragen
Jana

Hallo liebes Forum!!
Ich stehe gerade komplett (mal wieder auf dem Schlauch)!..
Ich habe einen umfangreichen VBA-Code mit Arrays. Nun möchte ich, dass in der Spalte 3 geguckt wird, ob die Zahl 2,3,7,9,11 oder 13 in dieser Zelle steht. Ist einer dieser Zahlen vorhanden, dann soll eine Va...
11.09.2008 12:06:28
Thread-ID: 1009072
3 Beiträge
Makro - einfache VBA Schleife für Excel
pc-doc@k-u-p.de

Hallo VBA MAkro Profis,
programmiere fast nie in VBA mehr Web js, php/mysql,
und brauche eine einfache VBA Schleife für Excel:
Ich möchte in mehreren Registerblättern einer Arbeitsmappe in der
Spalte D Zeile für Zeile checken ob
ein Wert in der Zelle steht
und wenn...
20.10.2008 11:51:00
Thread-ID: 1017619
8 Beiträge
Anzeige
Schleife: Zählen mit 2 Bedingungen
Sabrina

Hallo liebe Excel - Freunde,
Wollte erstmal sagen, dass ich das Forum ganz toll finde. Hat mir als Einsteiger schon den ein oder anderen Tipp gegeben.
Nun habe ich ein spezifisches Problem, bei dem ich einfach nicht weiterkomme. Ich hoffe ihr könnte mir dabei ein bisschen helfen.
Ic...
23.11.2008 20:21:00
Thread-ID: 1027155
6 Beiträge
Sumif mit 2 Bedingungen
HeinzS

Hallo zusammen, kann mir jemand sagen, wie ich die formel richtig aufbauen muß:
Aufgabenstellung: Addiere alle Zahlen aus dem Bereich A1:A100, welche entweder =123 sind? Habe es mit Sumif versucht, scheitere aber an der 2ten Bedingung.
Danke für eure Hilfe!
Lg, Heinz
04.02.2009 10:26:00
Thread-ID: 1046913
4 Beiträge
VBA mit Schleife-Zählerproblem
ico

Hallo,
leider habe ich den vorherigen Beitrag schon geschlossen aber dennoch ein Problem.
Der nachfolgende Code funktioniert wunderbar, aber leider wird de Zähler n bei jedem durchgang um 2 erhöht....eigentlich sollte dieser doch immer um eins erhöht werden n=n+1 ?
Sub Test2() For...
12.02.2009 17:18:00
Thread-ID: 1050178
4 Beiträge
Zählenwenn mit mehreren Bedingungen
Thomy

Hallo Excelprofis
Ich habe 2 Spalten. In der 1. befinden sich Zahlen und in der 2. Namen.
Welche Formel muss ich verwenden, wenn ich die Anzahl Zahlen in der Spalte A ermitteln will, die grösser als 2 und kleiner als 6 sind und in der Spalte B der Name Meier steht.
Ich bin mal bis...
13.03.2009 15:38:03
Thread-ID: 1059916
2 Beiträge
ZÄHLENWENN() mit mehreren Bedingungen
Kasimir

Hallo Leute,
irgendwie komme ich nicht weiter. Ich möchte eine ZÄHLENWENN()-Funktion mit mehreren Bedingungen erstellen, scheitere aber kläglich daran. Ich möchte eigentlich nur Zählen, wenn in Spalte B und C und D etwas steht. Das Ganze von Zeile 20 bis 269.
Mal als Beispiel, in Zelle...
14.03.2009 14:22:53
Thread-ID: 1060148
4 Beiträge

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
4
2
2
7
5
5
3
3
1
3
3
1
3
9
3
7
12
5
2
6
4
3
3
13
6