Modulbaukasten
08.01.2015 15:27:15
S.Hager
ich bin komplett neu auf dem VBA Gebiet und könnte ein bisschen Unterstützung gebrauchen. Ich bin gerade dabei, einen Modulbaukasten für Arbeitstische zu entwerfen, D.h. in Arbeitsblatt1 befinden sich jede Menge Daten (Preise, Ausführungen d. Arbeitstische, Stundenlohn der Arbeiter etc..) und in Arbeitsblatt2 soll sich der Endnutzer mit möglichst wenig Aufwand einen Arbeitstisch mit allen angebotenen Extras konfigurieren können. Als Endergebnis soll dann der Preis ermittelt werden. Ich hatte bislang die Idee Userforms mit CommandButtons zu verwenden, wenn der Endnutzer bspw. den Button mit der Beschriftung "Arbeitstisch mit 1200er Breite" auswählt, sollte dieser Button bewirken, dass in Arbeitsblatt2 in einer bestimmten Zelle der Wert erscheint, den ich in Arbeitsblatt1 errechnet habe. Ich habe bis jetzt versucht, ein Makro aufzuzeichnen in dem ich genau den Vorgang mache
Sub CommandButton1_Click()
Sub Arbeitstisch1200()
' Arbeitstisch1200 Makro
Range("B2").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!RC"
Range("B3").Select
End Sub
UserForm1.Hide
UserForm2.Show
End Sub
B2 ist die Zelle wo der Wert erscheinen soll der in Tabelle1 B3 steht
bekomme aber immer die Fehlermeldung: "Fehler beim Kompilieren: End Sub erwartet".
So, und jetzt auch endlich zu meiner Frage:
1. Wo fehlt da ein End Sub Befehl?
2.Gibt es noch eine andere Lösung um den Preis zu ermitteln? Wenn ich jetzt in Arbeitsblatt1 eine Sache verschiebe, dann würden ja alle Makros nicht mehr stimmen.
Über UNterstützung bzw. Tipps wie ich weiter vorgehen könnte würde ich mich sehr freuen.
MfG