Hallo,
kann mir jemand folgendes VBA-Script in OOo-Basic umschreiben?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Lokale Variablen
Dim NeuerWertE
Dim NeuerWertH
'********************
Select Case Target.Column 'Erfassen der doppelgeklickten Spalte
Case 2 'Artikelnummer
If IsEmpty(Target) = True Then Exit Sub ’ Wenn in der Zelle nichts eingetragen ist, dann verlasse die Prozedur
Cancel = True ’ Doppelklick abbrechen
On Error GoTo Fehler 'Wenn ein Fehler auftritt, dann verzweige zur Sprungmarke „Fehler“
NeuerWertE = InputBox(„Bitte geben Sie einen Wert für Spalte E ein“, Cells(Target.Row, 2)) ’ Anzeigen des Eingabedialoges
If NeuerWertE = „“ Then Exit Sub ’ Wenn auf Abbrechen geklickt wurde, dann verlasse die Prozedur
NeuerWertE = Trim(NeuerWertE) * 1 'Löschen versehentlich eingetippter Leerzeichen und überprüfen, ob eine Zahl eingegeben wurde
NeuerWertH = InputBox(„Bitte geben Sie einen Wert für Spalte H ein“, Cells(Target.Row, 2)) ’ Anzeigen des Eingabedialoges
If NeuerWertH = „“ Then Exit Sub ’ Wenn auf Abbrechen geklickt wurde, dann verlasse die Prozedur
NeuerWertH = Trim(NeuerWertH) * 1 'Löschen versehentlich eingetippter Leerzeichen und überprüfen, ob eine Zahl eingegeben wurde
Cells(Target.Row, 5) = Cells(Target.Row, 5) * 1 + NeuerWertE 'Aufaddieren des Wertes in Spalte E
Cells(Target.Row, 8) = Cells(Target.Row, 8) * 1 + NeuerWertH 'Aufaddieren des Wertes in Spalte H
End Select
Ende:
Exit Sub 'Verlasse die Prozedur
Fehler:
MsgBox „Geben Sie’s zu. Sie haben keine Zahl eingegeben.“ 'Eine Meldung anzeigen
Resume Ende 'Fehlerbehandlung beenden und zur Sprungmarke „Ende“ verzweigen
End Sub
Wäre wirklich nett!
Grüße aus Thüringen
real.stro
