Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1132to1136
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
1132to1136
1132to1136
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

makro für wenn - Fkt | Herbers Excel-Forum

makro für wenn - Fkt
03.02.2010 15:51:15
meixner

Hallo zusammen,
brauche ein Makro für folgende Fragestellung:
wenn in range.(A8:A15) ein Zeichen ungleich B ist (z.B. B9 = C, B12=D) dann bitte gesamte Zeile löschen, ansonsten unverändert lassen.
Kann mir jmd. dabei helfen?
Vielen Dank.
Dani

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
kein makro, autofilter / löschen
03.02.2010 15:54:11
Renee
Hi Dani,
Für sowas braucht Mann oder Frau kein Makro.
Zellen Filtern - ist nicht gleich "B" - Zeilen selektieren - Zeilen löschen.
GreetZ Renée
AW: kein makro, autofilter / löschen
03.02.2010 15:59:20
meixner
Danke für den Tip, aber tatsächlich brauche ich dafür ein Makro, sonst muss ich jedesmal manuell filtern.
Ich will eine automatische Selektion.
VG
Dani
dann eben Makrorekorder...
03.02.2010 16:02:10
Björn B.
Hallo,
dann schalte den Makrorekorder ein, mach das alles, was du brauchst, also bereich markieren, autofilter, kriterium eingeben, löschen, fertig.
Gruß
Björn B.
AW: dann eben Makrorekorder...
03.02.2010 16:29:13
meixner
Also zum tausendsten Mal: ich brauche eine Wennfkt. als Makro (kein AUTOFILTER!!!!!!! auch kein Autofilter als MAKRO, da die Zeilen gelöscht werden müssen!!!!).
Also wenn jmd. einen Tip für eine Wenn - Fkt. hat, wäre das sehr hilfreich!!!
VG
Dani
Anzeige
AW: dann eben Makrorekorder...
03.02.2010 16:42:17
Björn B.
Spar Dir mal Deinen unverschämten Ton. Das ist ja wohl ne Frechheit. Wenn Du keine Ahnung hast, dann lass Dir helfen. Wenn Du Dir nicht helfen lassen willst, hast du hier nichts verloren.
Der Satz von Dir ist Schwachsinn: 
 ich brauche eine Wennfkt. als Makro (kein AUTOFILTER!!!!!!! auch kein Autofilter als MAKRO, da die Zeilen gelöscht werden müssen!!!!).

Nenne mir nur einen Grund, warum du dass über WENN machen musst. Gibt es nämlich keinen.
Warum solltest Du die Zeilen nicht löschen können, wenn es mit Autofilter gemacht wird???
So macht man das eben. Teste einfach mal und mach dann die Leute hier blöd.
Danke.
Gruß
Björn B.
Anzeige
na dann halt...
03.02.2010 16:52:18
Renee
Hi Dani,
so, so du brauchst, warum denn so ungehalten ?
Brauchst du nur, oder lernst du auch ?
Deine Begründung, dass die Zeilen gelöscht werden müssen, hindert dich nicht die Vorschläge wenigstens auszuprobieren...
Ich kann dir leider keine Wennfkt. liefern, weil ich nicht weiss, was das ist !
Sub ByeBye()
Dim lngRow As Long
With ActiveSheet
For lngRow = 15 To 8 Step -1
If .Cells(lngRow, 1) <> "B" Then .Rows(lngRow).Delete shift:=xlUp
Next lngRow
End With
End Sub
GreetZ Renée
Ach, Renée, warum willst du bloß diesen...
03.02.2010 18:00:52
Luc:-?
...viell letzten stolzen und urwüchsigen „Eingeborenen“ aus seinem xl/vb-Fantasie-Paradies in die raue xl/vb-Wirklichkeit vertreiben... ;-)
Gruß Luc :-?
Anzeige
AW: kein makro, autofilter / löschen
03.02.2010 16:46:56
Andreas K.
Wird da jemand ungeduldig...? :)
Makros sind, wir du sicher weißt eine sehr gute Idee wenn man keine Ahnung davon hat, da Strg+Z so wunderbar funktioniert!
set wks1=worksheets("Sheet1")
for i=8 to 15
if wks1.cells(i,1).value<>"B" then wks1.rows(i).delete
next cell
so oder so ähnlich, muss halt noch angepasst werden.
Gruß,
Andreas
AW: makro für wenn - Fkt
03.02.2010 16:50:07
Josef Ehrensberger
Hallo Dani,
Sub loeschen()
  Dim rng As Range, rngDel As Range
  
  For Each rng In Range("A8:A15")
    If UCase(rng) <> "B" Then
      If rngDel Is Nothing Then
        Set rngDel = rng
      Else
        Set rngDel = Union(rngDel, rng)
      End If
    End If
  Next
  
  If Not rngDel Is Nothing Then rngDel.EntireRow.Delete
  
  Set rng = Nothing
  Set rngDel = Nothing
End Sub






Gruß Sepp
Anzeige
AW: makro für wenn - Fkt
03.02.2010 19:53:39
meixner
Hallo Sepp,
vielen Dank für die schnelle Antwort. Das funktioniert!
VG
Dani
Danke auch an all die anderen, die meine Anfrage beantwortet haben!
nochmals Danke an Sepp!
03.02.2010 19:59:50
meixner
das Makro ist echt klasse!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige