Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.05.2024 21:15:37
Koordinaten im XY-Diagramm per Cursor ändern.
08.05.2024 19:10:09
doppelte Zeile gem. mehrerer Bedingungen löschen?
08.05.2024 17:16:08
Randomize, RND, Timer() , (@Onur, Opawinni)
08.05.2024 16:47:59
Formel für 1, Ziffer nach einem Teilstring finden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1028to1032
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
1028to1032
1028to1032
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code löscht alles, wenn nur noch weniger als 180

Code löscht alles, wenn nur noch weniger als 180
07.12.2008 12:42:00
Wolfgang
Hallo,
beim Testen stolpere ich darüber, dass der untenstehende Code, wenn sich in Spalte Q keine Zahlen höher als 180 mehr befinden, alles umkopiert bzw. löscht. Wie lässt sich das evtl. abfangen, damit die Zeilen mit 180 und darunter auch stehen bleiben? - Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Option Explicit

Sub FilternUndKopieren()
Application.ScreenUpdating = False
Sheets("Grunddaten").CheckBox1 = 0
With Sheets("Grunddaten")
.Unprotect
.Range("A1").Autofilter Field:=17, Criteria1:=">180"
Intersect(.Columns("A:R"), .Range(.Rows(2), .Rows(.Range("a1").CurrentRegion.Rows.Count))).  _
_
Copy
Sheets("Altdaten").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormats
Sheets("Altdaten").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
.Range(.Rows(2), .Rows(.Range("a1").CurrentRegion.Rows.Count)).EntireRow.Delete shift:=xlUp
.Range("A1").Autofilter
.AutoFilterMode = False
.Application.CutCopyMode = False
End With
'löscht in Grunddaten und Altdaten die Leerzeilen
On Error Resume Next
Sheets("Grunddaten").UsedRange.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Sheets("Altdaten").UsedRange.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
Sheets("Grunddaten").CheckBox1 = 1
Application.ScreenUpdating = True
End Sub


9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code löscht alles, wenn nur noch weniger als 180
07.12.2008 14:31:34
ChrisL
hallo Wolfgang

Sub beispiel()
If WorksheetFunction.Max(Columns(17)) > 180 Then
' Dein Makro
End If
End Sub


Gruss
Chris

AW: Code löscht alles, wenn nur noch weniger als 180
07.12.2008 15:01:00
Wolfgang
Hallo Chris,
irgendwie funktioniert das nicht; Wenn ich das im beigefügtem Code entsprechend anpasse, löscht der Code auch Zeilen mit 180 und mehr ebenfalls nicht mehr. Hättest Du evtl. noch eine Idee? - Danke schon jetzt wieder für die Rückmeldung.
Gruß - Wolfgang
AW: Code löscht alles, wenn nur noch weniger als 180
07.12.2008 15:10:00
Gerd
Hallo Wolfgang,
in welchem Blatt u. mit welcher Codezeile wird zuviel gelöscht?
Lasse mal ScreenUpdating weg u. teste mit der F8-Taste im Einzelschrittmodus um dies festzustellen.
Gruß Gerd
Anzeige
AW: Code löscht alles, wenn nur noch weniger als 180
07.12.2008 15:22:00
Wolfgang
Hallo Gerd,
Danke zunächst für die Rückmeldung; habe es so vorgenommen, wie Du beschrieben hast. Die Zeilen verschwinden ab Intersect Columns.....(läßt sich hier auszugsweise wohl leider nicht hineinkopieren - da meckert die Seite wegen HTML-Format) dann vollständig im Blatt "Grunddaten".
Solange also noch in Spalte Q eine Zahl mit höher 180 steht, läuft das alles prima. Nur bewegen sich die Zahlen auf 180 und weniger, ist alles weg. Danke schon jetzt wieder für Deine Rückmeldung.
Gruß - Wolfgang
AW: Code löscht alles, wenn nur noch weniger als 180
07.12.2008 15:11:39
Luschi
Hallo Wolgang,
mit der folgenden Funktion kann man feststellen, wieviele Zeilen durch den Autofilter sichtbar
sind: 

Function anzahlFilterZeilen() As Long
Dim myFilterRows() As String, n1 As Long, n2 As Long
If ActiveSheet.FilterMode Then
myFilterRows = Split(ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible). _
Address, ",", -1, vbTextCompare)
n2 = -1
For n1 = LBound(myFilterRows) To UBound(myFilterRows)
n2 = n2 + Range(myFilterRows(n1)).Rows.Count
Next n1
anzahlFilterZeilen = n2
Else
'kein Filter gesetzt bzw. keine Werte gefiltert
anzahlFilterZeilen = -1
End If
End Function

und so kannst Du sie verwenden:
.Range("A1").Autofilter Field:=17, Criteria1:=">180"
If anzahlFilterZeilen > 0 Then
   'jetzt der Kopierbefehl
Else
   Msgbox "Keine Daten gefunden mit der Filterbedingung ..."
End If
Gruß von Luschi
aus klein-Paris
PS: Die von Chris aufgezeigte Lösung geht ins Leere, wenn in der Spalte 'Q' außerhalb des Filterbereiches
    Werte >180 stehen.

Anzeige
AW: Code löscht alles, wenn nur noch weniger als 180
07.12.2008 15:59:43
Wolfgang
Hallo Luschi,
auch Dir herzlichen Dank für die Rückmeldung; Ich habe Deinen Code eingebaut. Komisch ist, dass das über Schaltfläche nicht funktioniert, so dass der Code dann auch die Datensätze mit mehr als Zahl 180 ignoriert und nicht kopiert bzw. löscht; Nehme ich das ganz mit F8 schrittweise vor, funktioniert das sinnigerweise, mehr als 180 wird gelöscht, darunter bleibt stehen. Ich kann aber dabei noch nicht sagen, an welcher Stelle das nun weiter scheitert. Werde noch weiter testen und mich dann wieder melden.
Danke und Gruß
Wolfgang
Danke Luschi !
07.12.2008 16:14:00
Wolfgang
Hallo Luschi,
ich habe soeben vom Gerd einen Code erhalten, der einwandfrei läuft. Danken möchte ich Dir aber an dieser Stelle für Deine schnelle Rückmeldung und Deine Ausarbeitungen. Worin bei mir auch immer der Fehler noch liegt, warum der Code nicht so ganz rund läuft (?). Ich hoffe, Du bist mir nicht böse, dass ich den Code von Gerd verwende.
Herzliche Grüße
Wolfgang
Anzeige
AW: Code löscht alles, wenn nur noch weniger als 180
07.12.2008 15:58:00
Gerd
Hallo Wolfgang,
-wenn deine Analyse stimmt
-in Grunddaten,Spalte A des sichtbaren Filterbereichs (bei Zeilen mit >=180) Werte stehen
-unter dem gesamten Filterbereich in in Grunddaten Spalte A keine Werte/Formeln stehen
dann vielleicht so:

Sub FilternUndKopieren2()
Application.ScreenUpdating = False
With Sheets("Grunddaten")
.CheckBox1 = 0
.Unprotect
.Range("A1").AutoFilter Field:=17, Criteria1:=">180"
End With
With Sheets("Grunddaten")
If .Cells(.Rows.Count, 1).End(xlUp).Row > 1 Then 'xxxxxxx
Intersect(.Columns("A:R"), .Range(.Rows(2), .Rows(.Range("a1").CurrentRegion.Rows.Count))). _
Copy
Sheets("Altdaten").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormats
Sheets("Altdaten").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
.Range(.Rows(2), .Rows(.Range("a1").CurrentRegion.Rows.Count)).EntireRow.Delete shift:=xlUp
End If 'xxxxxxx
.Range("A1").AutoFilter
.AutoFilterMode = False
End With
Application.CutCopyMode = False
'löscht in Grunddaten und Altdaten die Leerzeilen
On Error Resume Next
Sheets("Grunddaten").UsedRange.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Sheets("Altdaten").UsedRange.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
Sheets("Grunddaten").CheckBox1 = 1
Application.ScreenUpdating = True
End Sub


Gruß Gerd

Anzeige
Danke Gerd, das ist es !
07.12.2008 16:10:08
Wolfgang
Hallo Gerd,
habe sofort Deinen Code eingebaut; er läuft wunderbar. Mehr als 180 wird umkopiert und gelöscht, darunter bleibt stehen. Super ! - Danke Dir recht herzlich dafür. Einen schönen Sonntag noch und nochmals allerherzlichen Dank.
Gruß - Wolfgang

299 Forumthreads zu ähnlichen Themen

X-Achse innerhalb eines OWC10.Objektes
Marc

Guten Tag zusammen ..
da der Topic etwas limitiert ist werde ich hier versuchen mein Problem einwenig zu verdeutlichen .. folgendes stellt sich mir dar
ich versuche eine Unmenge an Daten mittels eines OWC10.Objektes innerhalb einer Userform garphisch darzustellen. Dabei werden die minut...
12.08.2008 13:39:59
Thread-ID: 1001188
3 Beiträge
Anzeige
Initialwert bei string * 10
Eddie

Hallo,
ich habe ein kleines Problem mit der Type Anweisung.
Ich definiere in der Struktur u.a.
Type TestTest teststring As String * 10 End Type Dim Test(500) As TestTest
Zu meinem erstaunen, steht in z.B. Test.teststring, bevor die Variable das erste mal beschrieben wurde, 10...
15.08.2008 11:03:00
Thread-ID: 1002107
4 Beiträge
Wenn-Dann + SVERWEIS ???
B@sti

Hallo zusammen,
ich bräuchte zu folgendem Thema eure Hilfe:
und zwar geht es um den Abgleich zweier Arbeitmappen. In der ersten Arbeitsmappe befinden sich die Infos, aus der ein Ergebnis für die zweite Arbeitsmappe ausgelesen werden soll. Hab mal ne Beispieldatei angehängt:
https://...
21.08.2008 10:54:00
Thread-ID: 1003404
4 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
"wenn, dann, sonst" - Frage
Oliver

Hallo,
kleines Problem,
=WENN($I$4=4;4;0) liefert mir den Wert "0"
Jetzt habe ich diese Formel folgendermaßen abgeändert:
=Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
Nun meine Frage,...
11.09.2008 10:23:00
Thread-ID: 1008998
16 Beiträge
"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
zeile ermitteln aus : A10:C26
reinhardt

Hallo.
In A1 stehen Range-Werte in folgender Form: A10:C26, oder BC150:M299
Ich möchte alle Zeilen oberhalb von A10 (1 ...9) oder BC 150 (1...149) ausblenden.
Dazu brauche ich einmal Hilfe bei einer Formel, die mir den Wert 9 aus A10:C26 oder
den Wert 149 aus BC150:M299 erre...
19.09.2008 09:22:00
Thread-ID: 1010909
2 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
Anzeige

Links zu Excel-Dialogen

CheckBox

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