brauche Hilfe bei Laufzeitfehler
29.08.2004 18:06:47
Dennis
habe nun, auch mit Hilfe hier aus dem Board, diese Makros in Tabelle1:
Sub ausblenden()
Select Case Range("D18")
Case 1
s = "A": s1 = "G"
Case 2
s = "A": s1 = "L"
Case 3
s = "A": s1 = "Q"
Case 4
s = "A": s1 = "V"
Case 5
s = "A": s1 = "AA"
End Select
ActiveSheet.Protect "passwort", UserInterfaceOnly:=True
Sheets(1).Columns.EntireColumn.Hidden = False
Sheets(1).Columns("A:" & s).EntireColumn.Hidden = True
Sheets(1).Columns(s1 & ":AA").EntireColumn.Hidden = True
Sheets(1).Rows("150:65536").EntireRow.Hidden = True
Select Case Range("F20")
Case 1
s = "1": s1 = "44:135"
Case 2
s = "1": s1 = "90:135"
Case 3
s = "1": s1 = "150:65536"
Case Else
Exit Sub
End Select
Sheets(1).Rows("44:65536").EntireRow.Hidden = False
Sheets(1).Rows(s1).EntireRow.Hidden = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bereich1 As Range
Dim bereich2 As Range
Dim bereich3 As Range
Dim bereich4 As Range
Dim bereich5 As Range
Dim bs
num = Target
bs = 3
Do Until bs = 257
Set bereich1 = Range(Cells(24, bs), Cells(38, bs))
Set bereich2 = Range(Cells(47, bs), Cells(61, bs))
Set bereich3 = Range(Cells(70, bs), Cells(84, bs))
Set bereich4 = Range(Cells(93, bs), Cells(107, bs))
Set bereich5 = Range(Cells(116, bs), Cells(130, bs))
If Not Intersect(Target, bereich1) Is Nothing Then
On Error GoTo FehlerRoutine
Call sndPlaySound32("C:\Programme\EZ\dartsounds\Sounds\" & num & ".wav", 1)
End
GoTo ende
End If
If Not Intersect(Target, bereich2) Is Nothing Then
On Error GoTo FehlerRoutine
Call sndPlaySound32("C:\Programme\EZ\dartsounds\Sounds\" & num & ".wav", 1)
End
GoTo ende
End If
If Not Intersect(Target, bereich3) Is Nothing Then
On Error GoTo FehlerRoutine
Call sndPlaySound32("C:\Programme\EZ\dartsounds\Sounds\" & num & ".wav", 1)
End
GoTo ende
End If
If Not Intersect(Target, bereich4) Is Nothing Then
On Error GoTo FehlerRoutine
Call sndPlaySound32("C:\Programme\EZ\dartsounds\Sounds\" & num & ".wav", 1)
End
GoTo ende
End If
If Not Intersect(Target, bereich5) Is Nothing Then
On Error GoTo FehlerRoutine
Call sndPlaySound32("C:\Programme\EZ\dartsounds\Sounds\" & num & ".wav", 1)
End
GoTo ende
End If
bs = bs + 5
Loop
FehlerRoutine:
MsgBox "Bitte Pfad und Namen der WAV-Datei anpassen!"
ende:
End Sub
Sub musik()
num = ActiveCell.Value
num = ActiveCell.Offset(-1, 0).Value
On Error GoTo FehlerRoutine
Call sndPlaySound32("C:\Programme\EZ\dartsounds\Sounds\" & num & ".wav", 1)
End
FehlerRoutine:
MsgBox "Bitte Pfad und Namen der WAV-Datei anpassen!"
End Sub
Und dies in Modul1:
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Wenn ich nun aber etwas in die Zellen I5:I18 eingeben möchte kriege ich immer Fehlermeldung 1004 Anwendungs- oder Objektorientierter Fehler.
Wenn ich dann auf debuggen gehe zeigt er mir diesen Bereich gelb an:
Set bereich1 = Range(Cells(24, bs), Cells(38, bs))
Ich kenne mich allerdings nicht mit VBA aus, und weiss daher auch nicht, was anders gemacht werden kann.
Ich hoffe mal, dass ihr was damit anfangen könnt.
MfG, Dennis