Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1672to1676
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
1672to1676
1672to1676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leere Zeile einfügen wenn Bedingung erfüllt

Leere Zeile einfügen wenn Bedingung erfüllt
12.02.2019 08:57:08
Alexander
Ich habe eine Liste mit Nummern in Spalte B8:B150
An beliebiger Stelle in Spalte B kann jetzt die Zahl 100 auftauchen.
Nur einmal. Ich möchte vor der 100 eine leere Zeile einfügen. Wie kann ich das mit VBA lösen?
Zum Zeilen einfügen habe ich was gefunden. 
Sub Einfügen()
Rows("7:7").Select
Selection.Insert Shift:=xlDown
End Sub
Aber den Bezug zu der 100 bekomme ich nicht hin. Vielleicht mit einer Schleife?

For Each rngCell In Range("B8:C150")
Select Case rngCell.Value
If Cells(rngCell.Row, "B") = "100" Then
Zeile einfügen
End If
Vielen Dank im voraus

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leere Zeile einfügen wenn Bedingung erfüllt
12.02.2019 09:21:12
Daniel
Hi
wenn die Zahl 100 nur 1x auftauchen kann, dann
Range("B8:C150").find(what:="100", lookat:=xlwhole).EntireRow.Insert
wobei dann die 100 auch vorkommen sollte.
wenn nicht sicher ist, ob die 100 vorkommt, müsstest du noch etwas aufwand betreiben, um den Fehlerabbruch zu vermeiden:
z.B. 
dim rng100 as range
set rng100 = range("B8:C150").find(what:="100", lookat:=xlwhole)
if not rng100 is nothing then rng100.entirerow.Insert
oder auch einfach 
On Error Resume Next
Range("B8:C150").find(what:="100", lookat:=xlwhole).EntireRow.Insert
on Error Goto 0
oder 
with Range("B8:C100")
if worksheetfunction.Countif(.cells, 100) > 0 then _
.find(what:="100", lookat:=xlwhole).EntireRow.Insert
end with
Gruß Daniel
Anzeige
AW: Leere Zeile einfügen wenn Bedingung erfüllt
12.02.2019 09:32:38
Alexander
Danke für die Antwort.
Die Zahl 100 kommt sicher einmal vor.
wie muß das dann komplett aussehen, in eine schleife muss das nicht mehr oder?
Public Sub hundert()
Range("B8:C150").find(what:="100", lookat:=xlwhole).EntireRow.Insert
End Sub

AW: Leere Zeile einfügen wenn Bedingung erfüllt
12.02.2019 09:41:42
Daniel
Hi
ne das reicht, eine Schleife musst du dann nicht mehr programmieren.
die läuft unsichtbar für dich innerhalb der .FIND-Funktion ab.
Gruß Daniel
AW: Leere Zeile einfügen wenn Bedingung erfüllt
12.02.2019 09:50:34
Alexander
Vielen Dank, funktioniert. :)

150 Forumthreads zu ähnlichen Themen

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
Anzeige
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
wenn a1 leer, dann ganze zeile löschen
Hajo
Hallo Andreasich vermute mal Du kennst Dich mit VBA aus und kannst eins der folgenden Makros Dir anpassen.129. löschen wenn Spalte A kein Datum enthält
folgender Vorschlag (die Spalte A wird auf Datumsinhalte überprüft):
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step –1
If Not IsDa...
16.04.2002 20:58:38
Thread-ID: 113877
5 Beiträge
Anzeige
Zellen ausfüllen wenn Bedingung erfüllt (per VBA)
Jessi

Hallo zusammen,
ich habe mal wieder eine Frage bzw. ein Problem, dass ich nicht selbst lösen kann.
Ich lasse per Userform in die Spalte B einen "String" schreiben, das funktioniert auch schon (nicht in Beispielmappe integriert)
Beispielmappe:
https://www.herber.de/bbs/user/6928...
28.04.2010 19:30:32
Thread-ID: 1154354
4 Beiträge
Zellen löschen wenn Bedingung erfüllt ist
Kathi

Hallo zusammen,
zunächst einmal vielen Dank für die vielen tollen Beiträge, die mir schon sehr weitergeholfen haben. Leider stehe ich derzeit vor folgendem Problem (versuche, mich kurz zu fassen):
- habe Fragebogen erstellt, der in Excel eingegeben wird (Optionsfelder)
- insgesamt g...
02.06.2010 10:46:08
Thread-ID: 1159977
3 Beiträge
Auslesen von Werten wenn Bedingungen erfüllt sind
Werten

Hallo Leute,
ich möchte gern in der Tabelle 3 alle Ziffern die mit 5 anfangen in einer Spalte untereinander anzeigen lassen, wenn folgende Bedingungen erfüllt sind: 1. in der Tabelle 1 (rot) muss in einer der drei Kategorien entw. eine 1 oder 2 stehen und die Ziffer muss mit 5 anfangen.
...
23.03.2011 21:23:17
Thread-ID: 1207240
3 Beiträge
wenn dann neue zeile einfügen --> als Makro
Jan

Hallo Jungs und Mädels,
ich, als VBA Neuling, habe ein Problem mit einer ExcelTabelle, bei dem ich alleine nicht mehr weiterkomme.
Angenommen, in A2 steht =Summe(D1:D35), in B2 steht irgendwas, und wenn in C2 eine "2" steht, soll eine neue Zeile eingfügt werden. [Fall1]
"...
02.05.2011 14:18:11
Thread-ID: 1212646
6 Beiträge
Zellen zählen, wenn zwei Bedingungen erfüllt sind
MB

Hallo zusammen,
ich möchte eine Matrix aufstellen, mit der ich verschiedenen Mitarbeitern verschiedene Ereignisse zuschlüsseln kann.
In Tabelle 1 steht in Zeilen der Name und auch das Ereignis. Der Mitarbeiter kann mehrmals vorkommen und auch die Ereignisse können unterschiedlich sein:<...
03.05.2011 19:03:16
Thread-ID: 1212923
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
7
7
3
4
7
3
2
2
5
3
2
5
8
9
1
3
4
6
11
4
19
7
3
5
3