Zeile einfügen wenn Zelle gefüllt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Dim lngSheets As Long Dim t As Long Dim p As Long lngSheets = ThisWorkbook.Sheets.Count For t = 9 To 1 Step -1 For p = 1 To lngSheets If ThisWorkbook.Sheets(p).Cells(12, 6).Value "" Then Rows(t).Insert shift:=xlDown ThisWorkbook.Sheets(p).Cells(12, 6).Value = Cells(t + 1, 11).Value t = t + 2 Else t = t + 1 End If Next p Next t End Sub

Hallo Ron,
die Frage ist, was da nicht klappt.

Sheets(1).Rows(10).Insert shift:=xlDown

fügt bei Zeile 10 eine neue Zeile ein.

Sheets(1).Cells(10, 4).Insert shift:=xlDown

fügt bei D10 eine neue Zelle ein und verschiebt den Rest nach unten.
So lange Du nur in dieser einen Mappe arbeitest, kannst Du Dir ThisWorkbook sparen.
Es gibt nun eine Spalte in die möglicherweise mehr als nur eine Zelle eingefügt werden muss. Zum einen soll sie die Daten aus Zelle F9 kopieren werden, und die Zellen F12 und F15 überprüft werden. Falls diese Daten enthalten soll für jede gefüllte Zelle eine neue Zeile erstellt werden und der Wert unter dem bereits kopierten Wert eingefügt werden.
Der erste Satz sagt nicht klar aus, ob eine Zeile oder eine Zelle eingefügt werden muss.
Im zweiten Satz sagst Du zwar, woher die Daten kommen, aber nicht, wo sie hin sollen.
Im dritten Satz ist nicht klar von welchem Wert Du sprichst, der unter einem anderen nicht spezifizierten Wert eingefügt werden soll.
Es können also pro Blatt maximal 2 Zeilen dazukommen? Eine, wenn F12 gefüllt ist, und eine, wenn F15 gefüllt ist? Und in beide soll der Wert aus F9 kopiert werden? Oder in die erste der von F9,in die 2. der von F10?
Grüsse,
Frank

Hi Frank,
ok dann versuch ich es nochmal.
eine Arbeitsmappe - beliebig viele Tabellenblätter - Tabellenblätter alle gleich aufgebaut (bis auf das erste) - Tabellenblatt 1 ist eine Gesamtaufstellung aller Tabellenblätter
F9: der Wert wird aus jedem Tabellenblatt in Tabellenblatt 1 kopiert (start bei K9 dann untereinander)
F12: ab Tabellenblatt2 überprüfen ob Zelle gefüllt. Wenn Zelle gefüllt, dann wird im Tabellenblatt 1 unter der Zeile vom zugehörigen F9 eine neue Zeile eingefügt und dann entsprechender Wert aus F12 unter F9 kopiert.
F15: gleich wie bei F12 (nur mit F15)
Schritt für Schritt sollen die einzelnen Tabellenblätter durchgegangen werden. Wenn was passieren soll im Sinne von Zeile einfügen dann immer nur auf dem ersten Blatt.
Im Moment rechnet sich das Makro zu Tode.
Aktueller Stand:

Sub KapaPlanungAktualisieren()
Dim t As Long
Dim p As Long
Dim i As Long
lngSheets = ThisWorkbook.sheets.Count
For i = 3 To lngSheets
ThisWorkbook.sheets("KapaPlanung").Cells(6 + i, 11) = ThisWorkbook.sheets(i).Cells(9, 6)     _
lngSheets = ThisWorkbook.sheets.Count
For t = 9 To 1 Step -1
For p = 1 To lngSheets
If ThisWorkbook.sheets(p).Cells(12, 6).Value  "" Then
sheets("KapaPlanung").Rows(t).Insert shift:=xlDown
ThisWorkbook.sheets(p).Cells(12, 6).Value = Cells(t + 1, 11).Value
t = t + 2
If ThisWorkbook.sheets(p).Cells(15, 6).Value  "" Then
sheets("KapaPlanung").Rows(t).Insert shift:=xlDown
ThisWorkbook.sheets(p).Cells(12, 6).Value = Cells(t + 1, 11).Value
t = t + 3
Else
t = t + 1
End If
Next p
Next t
Next i
End Sub

Ich finde leider den Fehler nicht. Wahrscheinlich wieder variablen nicht genau definiert -.-
Ein Ansatz? :)
Beste Grüße
Ron

Beliebteste Forumthreads (12 Monate)

Zeile einfügen wenn Zelle gefüllt

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

245 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile einfügen wenn Zelle gefüllt

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

245 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread