Inhalt in Zellen suchen, Zellinhalte verschieben

Hallo zusammen,
beschäftige mich erst seit kurzem mit VBA und habe für meine Aufgabenstellung bisher noch keine Lösung finden können. Es sollen Daten aus eines Jahresabschlusses bearbeitet werden:
Es sollen folgende Schritte durchgeführt werden:
* entspricht unterschiedlichen Gliederungen, numerisch und alphanumerisch
In einer Spalte, z.B. A abwärts suchen
Suchbegriff = "Summe aus *"
Wenn Suchbegriff gefunden, Ausschneiden des Zellinhalts der Zellen B:F in der gleichen Zeile, wie der Suchbegriff, und Löschen der Zelle mit dem gefundenen Suchbegriff
danach Suche in Spalte A nach oben, bis Zellinhalt mit "*." gefunden wird,
Einfügen der Daten in Zellen C:G
danach wiederholen, bis keine Zelle mehr "Summe aus *" enthält
Hoffe es ist so verständlich, Einfügen einer Bildschirmkopie leider nicht möglich und das Tableau wird hier so verschoben, dass es eher verwirrt.
Vielen herzlichen Dank bereits vorab für die Unterstützung.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Soo mal genau auf deine Beispieldatei angepasst
Kleines Manko an der Sache es gibt Dopplungen in der Spalte A das kann u.U zu Irrungen führen
Schau dir das Makro mal an, es macht das was es soll(was ich verstanden hab was es machen soll)
Grüße

Sub Sort()
Dim LngZeile, LngLZeile, LngSuchZeile As Long
Dim Suchwert As String
With Worksheets("Tabelle1")
'LngLZeile = .Cells(Rows.Count, 1).End(xlUp).Row
For LngZeile = 2 To 18 ' statt 18 kann hier auch LngLZeile stehen je nachdem wie die  _
Datei im weiteren aufgebaut ist
Select Case IsNumeric(.Cells(LngZeile, 2))
Case Is = True
Suchwert = CStr(Mid(.Cells(LngZeile, 1), InStrRev(.Cells(LngZeile, 1), "  _
") + 1) & ".")
For LngSuchZeile = 2 To 18 'statt 18 kann hier auch LngLZeile  _
stehen je nachdem wie die Datei im weiteren aufgebaut ist\
If Cells(LngSuchZeile, 1) = Suchwert Then
If .Cells(LngSuchZeile, 3) = "" Then
.Cells(LngSuchZeile, 3) = .Cells(LngZeile, 2)
.Cells(LngSuchZeile, 4) = .Cells(LngZeile, 3)
.Cells(LngSuchZeile, 5) = .Cells(LngZeile, 4)
.Cells(LngSuchZeile, 6) = .Cells(LngZeile, 5)
'löschen
For n = 2 To 5
.Cells(LngZeile, n) = ""
Next n
Else
End If
Else
End If
Next LngSuchZeile
Case Is = False
End Select
Next LngZeile
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Inhalt in Zellen suchen, Zellinhalte verschieben

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Inhalt in Zellen suchen, Zellinhalte verschieben

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread