Daten überdragen mit Variablen
12.03.2004 18:46:48
Volker
Sub DatenÜbertragen()
Dim Name As String
Dim Vorname As String
Dim Straße As String
Dim Plz As String
Dim Ort As String
Dim GebDatum As Date
Dim Alter As Integer
Dim Maonatsgehalt As Currency
Dim Jahresgehalt As Currency
Dim Erfolgsbeteiligung As Currency
Dim Gesamtverdienst As Currency
Sheets("Tabelle1").Activate
'Zuweisen der Zelleninhalte an die Variablen
Name = Range("B1").Value
Vorname = Range("B2").Value
Straße = Range("B3").Value
Plz = Range("B4").Value
Ort = Range("B5").Value
GebDatum = Range("B6").Value
Monatsgehalt = Range("B7").Value
'Wechsel auf Ziel-Tabellenblatt
Sheets("Tabelle2").Select
'Einfügen Der Variablen in die Zellen
Range("B1").Value = Name
Range("B2").Value = Vorname
Range("B3").Value = Straße
Range("B4").Value = Plz
Range("B5").Value = Ort
Range("B6").Value = GebDatum
Range("B8").Value = Monatsgehalt
'Alter ausrechnen
Alter = Date - GebDatum
Range("B7").Value = _
Application.Round((Alter / 360), 0)
'Jahresgehalt errechnen
Jahresgehalt = Monatsgehalt * 12
Range("B9").Value = Jahresgehalt
'Erfolgsbeteiligung errechnen
Erfolgsbeteiligug = _
Jahresgehalt * 1.1 - Jahresgehalt
Range("B10").Value = Erfolgsbeteiligung
'Gesamtverdiens errechnen
Gesamtverdienst = _
Jahresgehalt + Erfolgsbeteiligung
Range("B11").Value = Gesamtverdienst
End Sub
Ich bin leider noch Neuling habe das Listing in Markt+Tchnikbuch abgetippt!
Die sagen es soll auf dem Tabelle2 alles ausgegeben werden.
Bei mir macht er nichts auf Tabelle2 es ist nur aktiv!
hätte gerne gewußt woh der Fehler ist!!!!!