Dachte da so an Koordinate z.b: H1( für Halle 1 ) S1 (Stellplatz) sodass in der Tabelle dann stehen
würde H1S1 Freierstellplatz oder so ähnlich ...
Hier mal das Blatt dazu : https://www.herber.de/bbs/user/58628.xls
Sub Eintrag()
Dim i As Long
Dim Halle
Range("L22:N125").ClearContents
For Halle = 3 To 12
For i = 2 To 11
On Error Resume Next
If Cells(Halle, i).Value = "x" Then
Cells(Cells(Rows.Count, 14).End(xlUp).Row + 1, 14) = "H " & Cells(Halle, 1).Value & " _
S " & Cells(2, i).Value
End If
If Cells(Halle, i).Value = "" Then
Cells(Cells(Rows.Count, 12).End(xlUp).Row + 1, 12) = "H " & Cells(Halle, 1).Value & " _
S " & Cells(2, i).Value
End If
Next
Next
End Sub
Gruss Hary