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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen