AW: VBA - Kopieren
25.07.2006 15:43:21
Ralf
Hallo Matthias,
vielen Dank für Deine schnelle Antwort. Es ist praktisch eine Hauptprozedur (Telefon1()) die
auf drei andere zurückgreift.
Viele Grüße
Ralf
Sub Telefon1()
Grundaufbau ' Aufruf der Prozedur Grundaufbau
Dateneingabe ' Aufruf der Prozedur Dateneingabe
FügeWerteEin ' Aufruf der Prozedur FügeWerteEin
End Sub
' Bereitet ein neues Tabellenblatt vor, indem Formeln
' eingegeben und Spaltenbreiten angepasst werden.
Sub Grundaufbau()
Range("A2").Value = "Teilnehmername"
Range("A3").Value = "Alter Zählerstand"
Range("A4").Value = "Neuer Zählerstand"
Range("A5").Value = "Verbrauchte Einheiten"
Range("A6").Value = "Gesamtpreis"
End Sub
'Fordert den Benutzer zur Eingabe von Informationen auf
Sub Dateneingabe()
Teilnehmername = InputBox("Welcher Teilnehmer?")
Alt_Zaehler = InputBox("Höhe des alten Zählerstandes?")
Neu_Zaehler = InputBox("Höhe des neuen Zählerstandes?")
End Sub
'Prozedur fügt die vom Benutzer eingegebenen Werte
'Zellen des Tabellenblattes ein
Sub FügeWerteEin()
Range("B2").Value = Teilnehmername
Range("B3").Value = Alt_Zaehler
Range("B4").Value = Neu_Zaehler
Verbrauch = Neu_Zaehler - Alt_Zaehler
Range("B5").Value = Verbrauch
Gesamtpreis = Verbrauch * PreisEinheit + Grundgebuehr
Range("B6").Value = Gesamtpreis
End Sub