Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1020to1024
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
1020to1024
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile einfügen

Zeile einfügen
31.10.2008 08:36:00
Jens
Hallo Excelfreunde,
ich habe folgende Aufgabenstellung welche ich mit einem Makro lösen will.
Wenn in Spalte B steht soll eine Zeile eingefügt werden falls der Begriff in Spalte K wechselt.
z.B.
Spalte B Spalte K
Rohstoff 500
Rohstoff 500
jetzt Zeile einfügen da der nächste Begriff in Spalte K 501 ist
Rohstoff 501
etc.
Wer kann mir dafür ein Makro schreiben?
Besten Dank im voraus für Hilfe.
Jens

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile einfügen
31.10.2008 09:04:30
Rudi
Hallo,
ungetestet:

Sub tt()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
If Cells(i, 2) = "Rohstoff" _
And Cells(i, 11)  Cells(i - 1, 11) _
Then Rows(i).Insert
Next i
Application.ScreenUpdating = True
End Sub


Gruß
Rudi

AW: Zeile einfügen
31.10.2008 10:17:00
Jens
Hallo Rudi,
herzlichen Dank für die schnelle Hilfe.
Klappt alles super.
Schönen Tag wünscht Jens

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige