Option Explicit
Sub Berechnung_freieZimmer()
Dim Zeile As Byte
Dim Spalte As Byte
Dim Einzelzimmer As Byte
Dim Doppelzimmer As Byte
Dim KomfortDZ As Byte
Dim TerassenDZ As Byte
Dim PanoramaDZ As Byte
Dim PanoramaTerassenDZ As Byte
Zeile = 2
Spalte = 12
Einzelzimmer = 0
Doppelzimmer = 0
KomfortDZ = 0
TerassenDZ = 0
PanoramaDZ = 0
PanoramaTerassenDZ = 0
Do
If Cells(Zeile, Spalte) = "Einzelzimmer" Then
Select Case Cells(Zeile, Spalte + 1)
Case "frei"
Einzelzimmer = Einzelzimmer + 1
Case "besetzt"
Zeile = Zeile + 1
End Select
ElseIf Cells(Zeile, Spalte) = "Doppelzimmer" Then
Select Case Cells(Zeile, Spalte + 1)
Case "frei"
Doppelzimmer = Doppelzimmer + 1
Case "besetzt"
Zeile = Zeile + 1
End Select
ElseIf Cells(Zeile, Spalte) = "KomfortDZ" Then
Select Case Cells(Zeile, Spalte + 1)
Case "frei"
KomfortDZ = KomfortDZ + 1
Case "besetzt"
Zeile = Zeile + 1
End Select
ElseIf Cells(Zeile, Spalte) = "TerassenDZ" Then
Select Case Cells(Zeile, Spalte + 1)
Case "frei"
TerassenDZ = TerassenDZ + 1
Case "besetzt"
Zeile = Zeile + 1
End Select
ElseIf Cells(Zeile, Spalte) = "PanoramaDZ" Then
Select Case Cells(Zeile, Spalte + 1)
Case "frei"
PanoramaDZ = PanoramaDZ + 1
Case "besetzt"
Zeile = Zeile + 1
End Select
ElseIf Cells(Zeile, Spalte) = "PanoramaTerassenDZ" Then
Select Case Cells(Zeile, Spalte + 1)
Case "frei"
PanoramaTerassenDZ = PanoramaTerassenDZ + 1
Case "besetzt"
Zeile = Zeile + 1
End Select
End If
Loop Until Cells(Zeile, Spalte) = ""
With Worksheets("tbl_Hotel")
.Cells(3, 4) = Einzelzimmer
.Cells(4, 4) = Doppelzimmer
.Cells(5, 4) = KomfortDZ
.Cells(6, 4) = TerassenDZ
.Cells(7, 4) = PanoramaDZ
.Cells(8, 4) = PanoramaTerassenDZ
End With
End Sub