Hey,
ich muss seit langem malwieder VBA machen, und komme deshalb leider selber nichtmehr so schnell darauf, wo meine Fehler liegen, bzw. kenne ich mich nicht mehr so gut mit VBA aus. Ich wäre euch doch sehr verbunden, wenn ihr mal über meine Programmierung rüberschaut und mir sagt, weshalb die Meldung: "Laufzeitfehler - Index außerhalb des gültigen Bereichs" auftaucht.
Code
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 SubMfG