Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1652to1656
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
1652to1656
1652to1656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn nach 1 keine 2 kommt dann löschen

Wenn nach 1 keine 2 kommt dann löschen
07.11.2018 14:14:40
Anna
Hallo,
ich habe mal eine Beispiel Datei hochgeladen. Spalte A hat entweder 1.0, ..2 oder ...3 (...3 ist nicht releant hier). Ich möchte wenn unter 1.0 keine ..2 kommt, dass die Zeile mit 1.0 gelöscht wird mit VBA, kann mir da bitte jemand helfen?
https://www.herber.de/bbs/user/125230.xlsx

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

Betreff
Datum
Anwender
Anzeige
Nachgefragt ...
07.11.2018 14:53:37
Matthias
Hallo
Tabelle1

 AB
11.0Beispiel
21.0Beispiel2
3..2Beispiel3
41.0Beispiel 4
51.0 Beispiel 5
6..2Beispiel 6


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Stehen die Daten wirklich exakt so in den Zellen?
Zeile(5) und (2) sollen lt.Bsp. gelöscht werden?
Gruß Matthias
Anzeige
AW: Nachgefragt ...
07.11.2018 15:02:48
Anna
Ja genau, zelle 5 und 2 sollen gelöscht werden, weil darunter keine ..2 ist.
AW: Nachgefragt ...
07.11.2018 15:16:09
Matthias
Hallo
Für Dein Beiepiel!
Sub RowDelete() Dim X& With Tabelle1 For X = 6 To 2 Step -1 If CStr(.Cells(X, 1).Offset(-1)) = "1.0" And CStr(.Cells(X, 1)) "..2" Then MsgBox "Zeile " & X & " löschen" End If Next End With End Sub Statt der Box löschst Du die Zeile mit: 
Rows(X).Delete

Die 6 bei: 
For X = 6 To 2 Step -1

bitte anpassen oder Einlesen!
Gruß Matthias
AW: Nachgefragt ...
07.11.2018 15:17:38
Anna
Danke, aber bei mehreren Zeilen, ist da kein loop drin oder wie das heißt ^^
Anzeige
was meinst Du ?
07.11.2018 15:38:44
Matthias
Hallo
Was meinst Du damit,
Bei mehreren Zeilen ...
Gruß Matthias

321 Forumthreads zu ähnlichen Themen

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 1 dann Wert aus Überschrift
Kendra

Hallo,
ich habe folgendes Problem, zu dem mir einfach keine Lösung einfallen will:
Meine Matrix sieht in etwa so aus:
______Peter_Hans_Susi_Karl_Klaus
Auto___0____1____0___2___0
Haus___1____0____0___0___2
Urlaub__0____0____1___0___2
Hobby__2____0____0___1___0...
23.09.2008 14:03:57
Thread-ID: 1011726
7 Beiträge
Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
Josef

Guten Morgen!
In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
Ich möchte nun folgendes erreichen:
Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
29.10.2008 07:57:42
Thread-ID: 1020127
3 Beiträge
Anzeige
Zeile einfügen wenn bestimmter Wert vorhanden
Bernhard

Hallo zusammen,
das Forum hat mir schon oft bei meiner Recherche geholfen, jetzt habe ich mal eine Frage.
Ich habe eine Tabelle in der in der Spalte A in verschiedenen Zeilen das wort "Ergebnis" steht.
Wie kann ich jeweils unter dieser Zeile eine Leerzeile einfügen.
Ich hoffe da...
28.11.2008 13:12:00
Thread-ID: 1028680
5 Beiträge
Formel wenn dann zellvergleich Text
Karel

Hallo Forum,
wie kann ich Zellwert C mit Zellwert E vergleichen ausgaben in Zelle A
wenn C und D Leer dsnn A auch Leer
Tabelle1

 ABCDE2Ausgabe Textwert Textwert3Offen Bezahlt Offen4Bezahlt Bezahlt Bezahlt5Offen Bezahlt  6Of...
28.11.2008 20:04:52
Thread-ID: 1028782
5 Beiträge
Formelproblem "wenn(text - beinhaltet, dann....)
Andi

Hallo Experten,
Ich steh bei folgender Excelformel an.
=WENN(D13=....folgender text beinhaltet ist (AA).....;"True";"false")
Ich würde gerne überprüfen ob im Feld D13 der Text "AA" vorkommt (z.B. Artikel "AA01"), falls dies zutrifft bitte "True" schreiben, ansonsten "false".
Da...
04.12.2008 11:42:00
Thread-ID: 1030117
3 Beiträge
Zahl einer Zelle in den Wenn-Text
die_nathan

Schönen Nachmittag,
Ist es möglich innerhalb eines Textes die Zahl einer Zelle einzufügen:
falsches Beispiel:
=wenn(A1="Ja!";"Die Gebühr von"A2"Euro ist noch zu zahlen!;"Die Gebühr wurde bereitsbezahlt."
Liebe Grüße
11.12.2008 15:35:07
Thread-ID: 1032078
6 Beiträge
Wenn ijn Spalte Datum von Jänner dann Werte zählen
Jänner

Hallo!
Ich habe in der Spalte A ab der Zeile 3 Datumwerte aus den Wochenenden und den Feiertagen stehen.
In der spalte G, H, I stehen nun Werte.
Ich möchte nun alle Werte in Abhängigkeit des Datums zusammenzählen.
Ist in der Spalte A das Jänner Datum vorhanden dann sollen die We...
07.01.2009 08:42:00
Thread-ID: 1037440
4 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
15
5
6
2
9
4
4
2
5
3
2
10
2
8
2
2
6
3
1
2
4
3
3
15
2