Was ist daran falsch?
06.06.2004 22:00:04
Manuel
Ich habe folgenden vba-code auf einen Button gelegt.
Wenn ich da jetzt ausführe, sodass die 1. if anweisungs erfüllt ist, also ausgeführt wird, dann kommt folgender Fehler bei dem "Range"(da, wo das "HIER" steht):
Laufzeitfehler "1004":
Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen
Hier der Code:
Private Sub Hinzufügen_Click()
Dim zeile
zeile = [L1]
Dim name
Dim Roheisen
Dim Kristalle
Dim Frubin
Dim Orizin
Dim Frurozin
Dim Gold
name = InputBox("Name", "Name")
If name = "" Then
Dim name2
Dim koordinaten
Dim rasse
Dim fraktion
Dim zeile2
Sheets("Namen").Select
zeile2 = [E1]
name2 = InputBox("Name:", "Neuen Pusher hinzufügen")
If name2 = "" Then Exit Sub
koordinaten = InputBox("Koordinaten:", "Neuen Pusher hinzufügen")
If koordinaten = "" Then Exit Sub
rasse = InputBox("Rasse:", "Neuen Pusher hinzufügen")
If rasse = "" Then Exit Sub
fraktion = InputBox("Fraktion:", "Neuen Pusher hinzufügen")
If fraktion = "" Then Exit Sub
Range("A" & zeile2).Select <--- HIER
ActiveCell.FormulaLocal = name2
Range("b" & zeile2).Select
ActiveCell.FormulaLocal = koordinaten
Range("c" & zeile2).Select
ActiveCell.FormulaLocal = rasse
Range("d" & zeile2).Select
ActiveCell.FormulaLocal = fraktion
[E1] = [E1] + 1
Range("A" & zeile2 + 1).Select
End If
Sheets("Namen").Select
Dim b
b = [E1]
For i = 1 To b
If name = Range("a" & i) Then
ActiveSheet("Pushing").Range("b" & zeile) = Range("b" & i)
End If
Next
Roheisen = InputBox("Menge Roheisen:", "Roheisen")
If Roheisen = "" Then Exit Sub
Kristalle = InputBox("Menge Kristalle:", "Kristalle")
If Kristalle = "" Then Exit Sub
Frubin = InputBox("Menge Frubin:", "Frubin")
If Frubin = "" Then Exit Sub
Orizin = InputBox("Menge Orizin:", "Orizin")
If Orizin = "" Then Exit Sub
Frurozin = InputBox("Menge Frurozin:", "Frurozin")
If Frurozin = "" Then Exit Sub
Gold = InputBox("Menge Gold:", "Gold")
If Gold = "" Then Exit Sub
End Sub
Was ist daran falsch. Oben sage ich doch, der soll im Worksheet "Namen" arbeiten..
Danke im voraus
Manuel