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

Ansicht des Beitrags:
Von:
jh		 Datum:
19.05.2008 18:17:18		 Views:
929		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Meine VBA-Function (Volumenberechnung) tuts nic
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ß


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
Blau Aw:Meine VBA-Function (Volumenberechnung) tuts nic
 19.05.2008 18:17:18 jh
NotSolved
25.05.2008 10:47:59 Ben
NotSolved