antifa2004
Ensign
- Registriert
- Juni 2004
- Beiträge
- 128
Hallo,
ich habe folgendes Problem. Wir sind von MS Office auf OOo umgestiegen.
Nun muss ich muss aber ein VBA-Makro in ein OOoBasic-Makro "übersetzen".
Leider habe ich keine Ahnung von OOoBasic.
In dem Makro soll folgendes passieren:
In einer Tabelle "Aufgaben" gibt es eine Spalte für "Aufgabennummer". Im Kopf einen Button "Nächste".
Klickt man auf diesen Button wird in der Tabelle "Syst" Feld 1, 2 auf die Zahl +1 addiert und diese dann in der gewählten
Zelle in Aufgaben/Aufgabennummer reingeschrieben. Verstanden?!?! Geht schlecht zu beschreiben.
Also:
- Benutzer wählt in Tabelle "Aufgaben" Feld A19 (oder A20, A21, ...)
- Klick auf "Nächste"
- Feld 1,2 in Tabelle "Syst" wird um eins erhöht
- diese neue Zahl wird dann in Tabelle "Aufgaben" Feld A19 (oder A20, A21, ...) eingefügt
So sieht das ganze in VBA aus:
Private Sub naechste_Click()
Dim hilfe As Worksheet
Dim nextnum As Integer
Set System = ActiveWorkbook.Worksheets("Syst")
nextnum = System.Cells(1, 2) + 1
System.Cells(1, 2) = nextnum
ActiveWorkbook.Worksheets("Aufgaben").Activate
ActiveCell.Value = nextnum
End Sub
Wäre echt toll, wenn mir jemand weiterhelfen könnte. Hab schon Stunden gegoogled und getestet aber dabei ist nix brauchbares rausgekommen...
ich habe folgendes Problem. Wir sind von MS Office auf OOo umgestiegen.
Nun muss ich muss aber ein VBA-Makro in ein OOoBasic-Makro "übersetzen".
Leider habe ich keine Ahnung von OOoBasic.
In dem Makro soll folgendes passieren:
In einer Tabelle "Aufgaben" gibt es eine Spalte für "Aufgabennummer". Im Kopf einen Button "Nächste".
Klickt man auf diesen Button wird in der Tabelle "Syst" Feld 1, 2 auf die Zahl +1 addiert und diese dann in der gewählten
Zelle in Aufgaben/Aufgabennummer reingeschrieben. Verstanden?!?! Geht schlecht zu beschreiben.
Also:
- Benutzer wählt in Tabelle "Aufgaben" Feld A19 (oder A20, A21, ...)
- Klick auf "Nächste"
- Feld 1,2 in Tabelle "Syst" wird um eins erhöht
- diese neue Zahl wird dann in Tabelle "Aufgaben" Feld A19 (oder A20, A21, ...) eingefügt
So sieht das ganze in VBA aus:
Private Sub naechste_Click()
Dim hilfe As Worksheet
Dim nextnum As Integer
Set System = ActiveWorkbook.Worksheets("Syst")
nextnum = System.Cells(1, 2) + 1
System.Cells(1, 2) = nextnum
ActiveWorkbook.Worksheets("Aufgaben").Activate
ActiveCell.Value = nextnum
End Sub
Wäre echt toll, wenn mir jemand weiterhelfen könnte. Hab schon Stunden gegoogled und getestet aber dabei ist nix brauchbares rausgekommen...