Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1608to1612
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
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen löschen wenn <

Zeilen löschen wenn <
14.02.2018 17:15:01
Thorsten
Hallo,
komme leider mit dem Makro-Rekorder nicht weiter und finde auch nichts Passendes.
Ich möchte aus einer formatierten Tabelle „Tabelle1“ alle Zeilen löschen, wo der Wert aus Spalte „OrderNumber“ kleiner ist als der Wert in Zelle CC1
Wäre super, wenn jemand helfen kann.
Gruß Thorsten

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen wenn <
14.02.2018 17:54:07
Richard
So in der Art ?
Private Sub loeschen()
Dim i As Long
'Finden der letzten beschrifteten zeile in Spalte 1
rw = Cells(Rows.Count, 1).End(xlUp).Row
'Durchgehen der 1 Spalte und vergleichen mit dem Wert in B2
For i = 1 To rw
If Cells(i, 1).Value > Range("B2").Value Then
Cells(i, 1).ClearContents 'Wert in Spalte 1 größer ist als B2 dann Inhalt löschen
End If
Next
End Sub
Grüße Richard
AW: Zeilen löschen wenn <
14.02.2018 18:20:20
Thorsten
Hallo Richard,
danke für Antwort.
"In der Art" habe ich über Google natürlich auch einiges gedunden. Bin aber nicht in der Lage dies umzwandeln, weil ich dies üer die formatierte Tabelle brauche und nicht über das gesamte Arbeitsblatt.
Die Länge der Tabelle ändert sich auch ständig,so dass ich keinen Enwert habe.
Ich dachte an eine Formel, so ähnlich:
Formula = "(Tabelle1[OrderNumber1:OrderNumber])" < "CC1"
Gruß Thorsten
Anzeige
AW: Zeilen löschen wenn <
15.02.2018 06:37:07
Werner
Hallo Thorsten,
von folgenden Voraussetzungen bin ich ausgegangen:
Deine Tabelle hat Überschriften, diese befinden sich in Zeile 1
Unterhalb der Tabelle befinden sich keine weiteren Daten
Die Spalte mit der Überschrift "OrderNumber" wird durch das Makro ermittelt. Würde also auch laufen, wenn sich die Anordnung der Spaltenüberschriften ändern sollte. 
Public Sub Zeilen_löschen()
Dim raSpalte As Range
Dim loLetzte As Long
Dim i As Long
Application.ScreenUpdating = False
Set raSpalte = Rows(1).Find(What:="OrderNumber", LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext)
If Not raSpalte Is Nothing Then
loLetzte = Columns(raSpalte.Column).Find(What:="*", LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For i = loLetzte To 2 Step -1
If Cells(i, raSpalte.Column).Value
Gruß Werner
Anzeige
Das ist ein Traum - 1000-Dank
15.02.2018 11:09:44
Thorsten
Hallo Werner,
Das ist ein absoluter Traum und trifft den Nagel auf dem Kopf.
Es ist tatsächlich so, dass sich bei der zu zu importierenden Tabelle die hier vorberitet wird die Anordnung der Spalten ändert.
Ein Riesen-Dankenschön
Gruß Thorsten
Gerne u. Danke für die Rückmeldung. o.w.T.
15.02.2018 11:29:02
Werner

312 Forumthreads zu ähnlichen Themen

Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
Anzeige
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Anzeige
Wenn kein Optionsfeld ausgewählt dann MsgBox
Bernhard

Hallo liebe Excel Freunde!
Wer kann mir bitte helfen? Ich habe eine UF mit 2 Optionsfeldern. Ich möchte einen Hinweis mit einer MsgBox bekommen, wenn keines der beiden Optionsfelder ausgewählt wurde.
Wie mache ich das in VBA?
Danke für Eure Hilfe
Gruss
Bernhard
09.09.2008 11:32:23
Thread-ID: 1008391
5 Beiträge
VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 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
5
5
7
15
5
4
4
2
9
2
2
7
3
7
3
7
1
3
4
23
4
7
4
3
7