Ich versuche mich seit kurzem an einem einzigen einfachen VBA-Macro.
Es soll einfach nur den Wert einer als Parameter mitgegebenen Zelle setzen.
Ich habe mal versucht der Einfachkeit halber was auszuprobieren. Jedoch scheitere ich... und meine Logik sagt mir jedoch, dass ich richtig liege...
Ach ja und wenn ich schonmal frage. Kann man den lästigen VBA-Editor nicht abschalten. Das hällt ja kein Mensch aus. Ich schreib zahl As Range und raus kommt zahlAsRange, ich schreib Select Case (...) raus kommt SelectCase(...). Ich meine kanns das sein, dass ich immer aus nem Texteditor reinkopieren muss? Irgendwas mach ich gewaltig falsch:
EDIT:
Achso jetzt seh ich grad. Range sollen natürlich mehrere Zellen sein. Aber wie kann ich dann nur eine Zelle nehmen?
Es soll einfach nur den Wert einer als Parameter mitgegebenen Zelle setzen.
Ich habe mal versucht der Einfachkeit halber was auszuprobieren. Jedoch scheitere ich... und meine Logik sagt mir jedoch, dass ich richtig liege...
Ach ja und wenn ich schonmal frage. Kann man den lästigen VBA-Editor nicht abschalten. Das hällt ja kein Mensch aus. Ich schreib zahl As Range und raus kommt zahlAsRange, ich schreib Select Case (...) raus kommt SelectCase(...). Ich meine kanns das sein, dass ich immer aus nem Texteditor reinkopieren muss? Irgendwas mach ich gewaltig falsch:
Visual Basic-Quellcode
- Function Test(zahl As Range, typ As Range, ko As Range, s0 As Range, s1 As Range, es As Range, Optional default As Variant)
- If (IsMissing(default)) Then
- default = "ko"
- End If
- Dim t1 As Variant
- t1 = typ.Value
- If (t1 = "") Then
- t1 = default
- End If
- ko.Value = 50 'was ist hier bitte falsch
- Select Case (LCase(t1))
- Case "ko"
- ko.Value = ko.Value + zahl.Value
- Case "s0"
- s0.Value = s0.Value + zahl.Value
- Case "s1"
- s1.Value = s1.Value + zahl.Value
- Case "es"
- es.Value = es.Value + zahl.Value
- End Select
- ko.Value = 50
- End Function
EDIT:
Achso jetzt seh ich grad. Range sollen natürlich mehrere Zellen sein. Aber wie kann ich dann nur eine Zelle nehmen?
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „thefiloe“ ()