Excel VBA Code zum Kopieren der Zellen B17 bis B46 in K19 bis BH9 ohne leere Zellen.

Hier ist ein Beispiel für einen Excel VBA Code, der die Zellen B17 bis B46 in die Zellen K19 bis BH9 kopiert, ohne leere Zellen zu berücksichtigen:

```vba
Sub CopyNonEmptyCells()
Dim sourceRange As Range
Dim targetRange As Range
Dim cell As Range
Dim targetRow As Long
Dim targetCol As Long

Set sourceRange = Range("B17:B46")
targetRow = 19
targetCol = 11 ' K ist die 11. Spalte

For Each cell In sourceRange
If cell.Value <> "" Then
Cells(targetRow, targetCol).Value = cell.Value
targetCol = targetCol + 1
If targetCol > 60 Then ' BH ist die 60. Spalte
targetCol = 11 ' Zurück zu K
targetRow = targetRow + 1
End If
End If
Next cell
End Sub
```

Dieser Code durchläuft die Zellen im Bereich B17 bis B46 und kopiert nur die nicht leeren Zellen in den Bereich K19 bis BH9. Wenn die letzte Spalte (BH) erreicht ist, wird zur nächsten Zeile gewechselt.