Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.04.2024 06:38:10
CSV Uhrzeit die Differenz berechnen
28.04.2024 20:05:21
CreateObject auf MacOS
28.04.2024 18:33:31
Excel Fenster fixieren
28.04.2024 18:25:12
Excel Aufbauende Summe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1932to1936
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
1932to1936
1932to1936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn bestimmte Teilennummer dann...

Wenn bestimmte Teilennummer dann...
06.06.2023 14:32:08
Jürgen

Hallo Excel-Forum,

bitte nicht lachen oder schimpfen wg, nicht genug Recherche, aber ich finde in diesem simplen Code meinen Fehler nicht.

For lngRow3 = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(lngRow3) = 2 Then
Rows(lngRow3).Resize(2).Insert
Exit Sub
Else
End If

Wenn IngRow3 bei Zeilennummer 2 ist wird nicht nach Then weitergegangen sondern auch wieder nach Else.
Kann mir einer sagen was ich übersehe und falsch mache?

Vielen Dank im Voraus und Grüße
Jürgen

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn bestimmte Teilennummer dann...
06.06.2023 14:39:05
Rudi Maintaire
Hallo,
dir fehlt die Spaltenangabe bei
If Cells(lngRow3) = 2 Then

Wahrscheinlich
If Cells(lngRow3, 1) = 2 Then

Gruß
Rudi


AW: Wenn bestimmte Teilennummer dann...
06.06.2023 14:47:17
Jürgen
Hallo Rudi,

danke für deine schnelle Antwort. Ich habe mich, glaube ich, nicht richtig ausgedrückt.
IngRow3 zählt ja von der der letzten Zeile nach oben hoch. Zum Beispiel 20, 19, 18... bis 1.
Wenn IngRow3 bei der Zahl 2 ist dann soll das Makro bei Then weitergehen.

Es soll nicht in einer Spalte nach einem Wert gesucht werden.
Kannst du hierbei auch helfen?

Grüße Jürgen


Anzeige
AW: Wenn bestimmte Teilennummer dann...
06.06.2023 15:12:30
Rudi Maintaire
Hallo,
und was soll dann die Schleife? Warum fügst du nicht gleich oben 2 Zeilen ein?

If lngRow3=2 Then

Gruß
Rudi


AW: Wenn bestimmte Teilennummer dann...
06.06.2023 15:25:52
Jürgen
Das ist nur ein kleiner Auszug.
Das Makro ist etwas länger. Zuerst wird eine Liste unterteilt und mit Überschriften versehen.
Wenn das Makro aber Zeile 2 erreicht soll es sich etwas anders verhalten.
Hier der komplette Code-Auszug:

Dim lngRow3 As Long

For lngRow3 = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1

If Cells(lngRow3, 1) = 2 Then
Rows(lngRow3).Resize(2).Insert
.... hier geht es dann noch weiter
Exit Sub
Else
End If

If Left$(Cells(lngRow3, 6), 1) > Left$(Cells(lngRow3 - 1, 6), 1) Then
Rows(lngRow3).Resize(4).Insert
Rows(1).Copy Rows(lngRow3 + 3)
Rows(lngRow3 + 1 & ":" & lngRow3 + 4).Select
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
'Bereichsüberschrift anpassen
Range(Cells(lngRow3 + 3, 1), Cells(lngRow3 + 3, 8)).Select
Selection.ClearContents
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
Cells(lngRow3 + 6, 5).Copy
Cells(lngRow3 + 3, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End if
Next

Vielleicht wird es hierdurch etwas deutlicher.

Grüße Jürgen


Anzeige
AW: Wenn bestimmte Teilennummer dann...
06.06.2023 15:26:22
Jürgen
Das ist nur ein kleiner Auszug.
Das Makro ist etwas länger. Zuerst wird eine Liste unterteilt und mit Überschriften versehen.
Wenn das Makro aber Zeile 2 erreicht soll es sich etwas anders verhalten.
Hier der komplette Code-Auszug:

Dim lngRow3 As Long

For lngRow3 = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1

If Cells(lngRow3, 1) = 2 Then
Rows(lngRow3).Resize(2).Insert
.... hier geht es dann noch weiter
Exit Sub
Else
End If

If Left$(Cells(lngRow3, 6), 1) > Left$(Cells(lngRow3 - 1, 6), 1) Then
Rows(lngRow3).Resize(4).Insert
Rows(1).Copy Rows(lngRow3 + 3)
Rows(lngRow3 + 1 & ":" & lngRow3 + 4).Select
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
'Bereichsüberschrift anpassen
Range(Cells(lngRow3 + 3, 1), Cells(lngRow3 + 3, 8)).Select
Selection.ClearContents
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
Cells(lngRow3 + 6, 5).Copy
Cells(lngRow3 + 3, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End if
Next

Vielleicht wird es hierdurch etwas deutlicher.

Grüße Jürgen


Anzeige
AW: Wenn bestimmte Teilennummer dann...
06.06.2023 15:57:51
Daniel
"Wenn das Makro aber Zeile 2 erreicht soll es sich etwas anders verhalten."

naja, die Schleife geht doch nur bis 2.
Wenn sich das Makro bei Zeile 2 anders verhalten soll, dann lass die Schleife nur bis Zeile 3 laufen und programmiere dann die Bearbeitung der Zeile 2 seperat

For lngRow3 = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
   hier der Code für die Bearbeitung der Zeilen 3 bis x
Next
hier der Code für die Bearbeitung  der Zeile 2
Gruß Daniel

41 Forumthreads zu ähnlichen Themen

Wenn Dann Formel mit Namensbezug
Matthias

HiHo!
Hab ja so meine Problemme und Ideen, und schon wieder eine Lol!
Excel läßt leider nur 64 Verschachtelungsebenen zu, das ist aber nicht genug für mich, denn ich habe eine geburtstagsliste, Name Vorname Geburtstag
Jetzt hab ich noch einen Kalender, und möchte gerne, das an dem T...
01.01.1970 00:00:00
Thread-ID: 1110152
41 Beiträge
Anzeige
Wenn Artikelnummer untereinander, dann neue Zeile
Thomas
Hallo alle zusammen!
Dank euch konnte ich hier bereits einige Aufgaben lösen, aber bei meiner aktuellen Aufgabe finde ich leider keine Lösung oder Hinweise die mich zu einem Ergebnis führen.
Ich habe eine Exceldatei mit 5 Spalten. In Spalte A befinden sich Kundennummern, in Spalte B die Pro...
10.01.2015 12:12:40
Thread-ID: 1401949
6 Beiträge
Wenn wert in Liste dann
MJ

Hallo ihr Experten
Habe mich hier angemeldet weil ich bisher immer ne Lösung für meine Probleme hier gefunden hab. Nun aber nichtmehr.
Also ich möchte erreichen das ein Ausgegebener Wert, der eine Zahl ist mit einer Tabelle von Zahlen verglichen wird. DAs jedoch ist jetzt eigentlich noc...
20.10.2015 18:03:50
Thread-ID: 1453372
14 Beiträge
Anzeige
Datei Kopieren wenn der Name in einer Liste Steht
A.Kappler

Hallo Zusammen,
Ich habe in einem Ordner (C:\Vteile) ca. 10.000 PDF-Dateien.
Nun bekomme ich eine Liste mit ca. 300 Einträgen ( Nummern die den ersten 8 Zahlen der Dateinamen entsprechen z.B. 40402289) Nun möchte ich die Liste per Makro durchgehen und wenn die Nummer aus der Liste den...
02.03.2017 07:45:18
Thread-ID: 1544980
4 Beiträge
VBA Wenn Status aktiv dann Name und Datum
Simon

Hallo,
Ich habe seit Office 2016 folgendes Problem:
Wir hatten in unseren Unternehmen eine Liste bezüglich Abteilungswechsel, die ausgefüllt werden muss wenn bestimmte Benutzer in eine andere Abteilung wechseln.
Wenn eine Tätigkeit erfüllt wurde muss bei Status eine Auswahl ausgewäh...
31.01.2018 10:47:49
Thread-ID: 1606066
10 Beiträge
Wenn Nummer dann komplette Zeile kopieren
Marion

Hallo,
nachdem ich eine Woche lang gesucht und "gefummelt" habe, habe ich ein Problem lösen können. Beim zweiten Problem hoffe ich auf Eure Hilfe.
Ich möchte in einer Tabelle (namens Konto) in der Spalte B eine Auftragsnummer eingeben, welche in einer komplett andere Tabelle (namens A...
05.08.2019 19:46:47
Thread-ID: 1705986
12 Beiträge
Wenn Max, dann Name auslesen...
Markus
Hallo Zusammen

Ich komm nicht weiter...naja, weshalb würd ich mich sonst hier melden...

Wir haben vom Sportclub ne Scorerliste...also nur Name, Tore, Assists und Punkte.

Nun möchte ich in einem Feld den Topscorer berechnen lassen. Dazu möchte ich die max. Punktezahl auslesen,...
13.11.2003 20:01:43
Thread-ID: 337962
3 Beiträge
Wenn Datei existiert, dann Name erweitern
Alexander

Hallo zusammen,
ich habe folgendes Problem: Die Excel-Datei wird per Makro unter einem bestimmten Namen abgespeichert. Wenn dort jedoch diese Datei schon existiert kommt bekanntlich die Meldung "Datei existiert bereits, überschreiben?" Wenn dies der Fall ist, soll die Datei trotzdem in dies...
22.08.2006 16:01:21
Thread-ID: 794279
3 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
40
2
5
13
1
3
9
11
2
2
5
3
4
1
40
3
5
3
5
1
3
1
9
8
3