Thema Datum  Von Nutzer Rating
Antwort
18.05.2008 19:36:36 Ben
NotSolved
19.05.2008 18:17:18 jh
NotSolved
Rot Aw:Aw:Meine VBA-Function (Volumenberechnung) tuts
25.05.2008 10:47:59 Ben
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
25.05.2008 10:47:59		 Views:
987		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Meine VBA-Function (Volumenberechnung) tuts
jh schrieb am 19.05.2008 18:17:18:

Hallo,

alle ausführbaren Anweisungen gehören in eine Prozedur
(Sub oder Function), auf Modulebene können (müssen aber
nicht) nur Deklarationsanweisungen stehen.

Option Explicit

Private Sub Dateneingabe()
Dim intHoehe As Integer
Dim intBreite As Integer
Dim intTiefe As Integer
intHoehe = InputBox("Bitte geben Sie eine Höhe ein")
intBreite = InputBox("Bitte geben Sie eine Breite ein")
intTiefe = InputBox("Bitte geben Sie eine Tiefe ein")
Cells(4, 3) = intHoehe
Cells(5, 3) = intBreite
Cells(6, 3) = intTiefe
Cells(7, 3) = Volumen(intHoehe, intBreite, intTiefe)
End Sub

Private Function Volumen(intHoehe As Integer, intBreite As Integer, _
intTiefe As Integer) As Integer
Volumen = intHoehe * intBreite * intTiefe
End Function

Gruß


Hallo nochmal,

hat vorigen Montag alles super geklappt im Referat :). Habe für das Referat selber 14 P und für die Durchführung 15 P bekommen. Alles Wunderbar. Gut das es für VBA auch ein Forum gibt, nur schade das ich erst so spät drauf gestoßen bin.

Vielen lieben Dank

Benjamin

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.05.2008 19:36:36 Ben
NotSolved
19.05.2008 18:17:18 jh
NotSolved
Rot Aw:Aw:Meine VBA-Function (Volumenberechnung) tuts
25.05.2008 10:47:59 Ben
NotSolved