Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
23.04.2024 08:20:37
VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen
23.04.2024 08:04:28
4-fach verschachtelte WENN-Funktion
22.04.2024 22:36:13
Marko automatisch ausführen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
276to280
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelleninhalt suchen und ab dort löschen

Zelleninhalt suchen und ab dort löschen
11.07.2003 12:35:28
Chris
Halloechen,
hab da eine Fragen.
In einer Tabelle soll nach dem begriff "Road" gesucht werden und ab dort
alle Zeilen löschen bzw. leer werden.
Hat jemand eine Idee ?
Danke und lieben Gruss
Chris

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalt suchen und ab dort löschen
11.07.2003 12:57:17
Oliver
Hallo Chris,
wo steht denn der Begriff "Road"? In einer Spalte, Zeile oder irgendwo in der Tabelle?
Gruß
OliveR

AW: Zelleninhalt suchen und ab dort löschen
11.07.2003 13:41:26
Chris
In der Spalte A ... aber die Zeile ist variabel ... mal A29 mal A35 mal A32

AW: Zelleninhalt suchen und ab dort löschen
11.07.2003 14:16:08
OliveR
Hallo Chris,
hier der Code.
Gruß
OliveR

Sub test()
Dim lR%, i%
lR = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lR Step 1
If Cells(i, 1) = "Road" Then
Range(Cells(i + 1, 1), Cells(lR, 1)).EntireRow.Delete
Exit Sub
End If
Next i
End Sub


AW: Zelleninhalt suchen und ab dort löschen
11.07.2003 14:28:26
Chris
Hallo Oliver,
erstmal vielen dank ! aber mein tabellenname ist auch variabel.
der heisst nicht "tabelle1" sondern ist immer verschieden

Anzeige
AW: Zelleninhalt suchen und ab dort löschen
11.07.2003 14:57:06
OliveR
Hallo Chris,
dann einfach Worksheets("Tabelle1") durch ActiveSheet ersetzen.
Gruß
OliveR

AW: Zelleninhalt suchen und ab dort löschen
11.07.2003 15:03:59
Chris
Perfekt !!! Vielen lieben Dank !!!
Und da Du mir so nett geholfen hast hab ich noch ein Problem :-)
Schau mal ... J2 und J3 steht AE ... wenn das drin steht soll alles
drunter gelöscht werden bis auf "AIR" ... sprich von Air bis zur kommenden leerzeile.
du verstehen ? wäre echt lieb ! danke !

Zusatzfrage
11.07.2003 15:23:16
OliveR
Sorry, habe Deine Anfrage nicht ganz gerafft.
Wenn AE drin steht sollen die Zellen unterhalb von AIR geleert werden?
Und der Rest dadrunter stehen bleiben z.B. Sea.....
Bitte um etwas genauere Beschreibung.
Gruß
OliveR

Anzeige
AW: Zusatzfrage
11.07.2003 15:26:32
Chris
Also wenn da "AE" drinsteht dürfen nur die Position(en) unter AIR aufgeführt werden.
Sprich Alles folgende nach den Positionen (10,20,30,etc.) muss leer sein.
Wenn dort "SE" oder "SI" drinsteht dürfen nur die Positionen unter "SEA FCL" bzw. "SEA LCL" aufgeführt werden und von AIR muss weg.

AW: Zusatzfrage - frage
11.07.2003 15:32:56
OliveR
Bitte ein Sheet bauen, wie es ausschauen soll, nachdem das Macro gelaufen ist mit dem Eintrag SE in Spalte J.
Das wäre hilfreich.
Ausserdem, wieviele Positionen sind denn möglich?
Sollen die anderen Überschriften stehen bleiben?
Sind die Leer-Zeile(n) zwischen AIR - Positionen und SEA FCL garantiert?
Leider sind die Fragen notwendig, da ich leider nicht zu Hause bin und nicht soviel Zeit habe alles allgemein zu proggen.
Gruß
OliveR

Anzeige
AW: Zusatzfrage - frage
11.07.2003 15:43:18
Chris
So sieht die jetztige Datei aus.
Max. 9 Positionen sind möglich.
Auch nur ... entweder AE, oder SE oder SI.
Leerzeilen sind immer 4 Stück und garantiert.
Die Überschriften MÜSSEN stehen bleiben
https://www.herber.de/bbs/user/233.xls

Heute Abend
11.07.2003 17:25:16
OliveR
Sorry Chris,
es ist leider kurzfristig was dazwischen gekommen, so dass ich mich Deinem Problem jetzt nicht anzunehmen. Ich melde mich heute Abend von zu Hause nochmal.
Gruß
OliveR

Nach Kriterium andere Zeilen löschen
11.07.2003 20:28:59
OliveR
Hallo Chris,
here we go......
Gruß
OliveR
___________________________________________________________________________________
Option Explicit
Dim count%

Sub clear_it()
Dim lR%, i%, ziel%
Columns("A:A").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
count = ActiveCell.Row - 2
If count > 9 Then
MsgBox ("Zuviele Positionen")
End If
If Cells(2, 10).Value = "AE" Then
ziel = ActiveCell.Row + count + 12
del_data (ziel)
ziel = ziel + 6
del_data (ziel)
ElseIf Cells(2, 10).Value = "SE" Then
ziel = ActiveCell.Row + 6
del_data (ziel)
ziel = ziel + 12 + count
del_data (ziel)
ElseIf Cells(2, 10).Value = "SI" Then
ziel = ActiveCell.Row + 6
del_data (ziel)
ziel = ziel + 6
del_data (ziel)
Else
MsgBox ("Traffic Type fehlt!")
End If
Range("A1").Select
End Sub



Function del_data(j)
Range(Cells(j, 1), Cells(j + count - 1, 1)).EntireRow.Delete
End Function


Anzeige
AW: Nach Kriterium andere Zeilen löschen
12.07.2003 14:49:15
Chris
danke erstmal :-)
klappt nicht so ganz ... er sagt immer Traffic Type fehlt
ist 2, 10 so gemeint ... 2.te zeile und 10.te spalte ?

AW: Nach Kriterium andere Zeilen löschen
13.07.2003 20:46:14
OliveR
Hallo Chris,
habe ich die falsche Spalte erwischt?
ja bei Cells(2,10) heisst es 2te Zeile 10te Spalte. Pass es nach Deinen Bedürfnissen ab.
Gruss
Oliver

303 Forumthreads zu ähnlichen Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Wert in farbiger Zelle addieren
thomas

Hallo,
ich möchte den Wert in farbigen Zellen addieren.
Z.B.
Zelle A1 :C1 Zellfarbe gelb, in jeder Zelle steht der Wert 1 ; Ergebnis soll 3 sein
oder
Zelle A2 = grün Wert =1, B2 = gelb Wert=2, C2 = gelb Wert =2; Ergebnis soll 4 sein
gibt es dafür eine Funktion oder is...
13.08.2008 12:56:00
Thread-ID: 1001497
4 Beiträge
Anzeige
unterschiedliche Buchstaben in Textzellen finden
Rob

Liebe xls-Profis,
ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
Einfache Beispiele:
A1 B1
Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
20.08.2008 10:26:10
Thread-ID: 1003114
8 Beiträge
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Suchfunktion - TextBox kein Text sondern Datum
Frank

Hallo Liebe Excelgemeinde!!!
In einer UserForm befindet sich folgender Code um bestimmte Einträge zu suchen. Da in der TextBox1 aber kein Text sondern ein Datum steht funktioniert dies nicht, da kommt die Meldung " Suchbegriff wurde nicht gefunden".
Was muss ich ändern, damit auch nach...
21.08.2008 15:35:00
Thread-ID: 1003541
4 Beiträge
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 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
2
4
8
3
16
7
5
3
3
9
5
3
3
2
1
4
5
14
11
4
2
4
5
1
7