|
Hallo Zusammen,
ich programmiere noch nicht so lange VBA´s und bin gerade am verzweifeln. Es wäre schön, wenn mir jemand bei meinem Probelm helfen könnte.
Ab der Spalte A5 stehen untereinander gegliedert Überschriften und einer Zeichenfolge, die IMMER aus 4 Zeichen besteht z.B. GKMD oder K3F6 (Großbuchstaben mit und ohne Zahlen, nur Zahlen).
Es stehen unterschiedlich viele 4er Zeichen unter den Überschriften. Ich möchte gerne, die 4er Zeichen, die zusammengehören zwei Spalten neben dem letzten 4er Zeichen mit Komma getrennt in eine Zelle schreiben.
Hier Spalte A:
|
Objektart |
|
|
|
Zustand |
|
|
|
|
|
|
|
Zeilenbeschriftungen |
|
|
|
|
|
|
|
Versicherung |
|
|
|
Werkstatt |
|
|
|
Reifen wechseln |
|
|
|
|
|
|
|
Schrauben |
|
|
|
MVEV |
|
|
|
NCIT |
|
hier soll: MVEV, NCIT stehen |
|
Ölwechsel |
|
|
|
Öl |
|
|
|
J8E8 |
|
|
|
WTH9 |
|
|
|
DUYV |
|
|
|
6KDO |
|
hier soll J8E8, WTH9, DUYV, 6KDO stehen |
Ich weiß leider nicht, wie genau meine if Abfrage lauten muss.
Sub Kette()
Dim Abfrage As Range
Dim a As Integer
Dim b As Integer
Dim i As Integer
Set WS = Worksheets("Tabelle1")
With WS
lngLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 6 To lngLastRow
Set Abfrage = WS.Cells(i, 1)
If Abfrage.Value = Not IsEmpty(Abfrage.Value)And ??? Then
a = Abfrage + ","
b = a
f = a & b
ActiveCell.Offset(0, 1) = f
End If
Next
End With
End Sub
Vielen Dank
Sabine
|