Finde den Fehler im VBA-Prog nicht
03.02.2009 03:54:00
San
ich bin neu hier im Forum und bin für jede Hilfestellung dankbar.
Zum Problem
Tabelle:
1. Spalte: enthalten Namen
2. Spalte: enthalten vierstellige IDs
3. Spalte: -
4. Spalte: können Zahlen mit Kommastellen stehen
A B C D
ace 2343 ...
ike 4545 ... =rowcopy(340,00)
fat 3444 ...
Ziel dieses Programms:
1. einen Wert in eine Zelle (hier D2) der 4.Spalte mithilfe der untenaufgeführten
Function rowcopy(double) eintragen
2. mit Eintragung soll der Name, die ID und der Wert in die nächste freie Zeile(oben die 4. Zeile),
aber die gleichen Spalten eingetragen werden.
A B C D
ace 2343 ...
ike 4545 ... 330,00
fat 3444 ...
ike 4545 ... 330,00
Ich finde den Fehler nicht, jedoch wird die dritte Msgbox "3" nicht ausgegeben.
Function rowcopy(numb As Double)
Dim x, y, s, cel As Long
Dim act As Double
Dim name As String
Dim id As Long
'Koordinaten der aktiven Zelle ermitteln
y = ActiveCell.Row
x = ActiveCell.Column
'Bestimmte Werte der Zeile der aktiven Zellzeile ermitteln
act = numb
name = Worksheets("Main").Cells(y, 1).Value
id = Cells(y, 2).Value
MsgBox "1"
'Die y-Koordinate der ersten freien Zeile in der 1. Spalte ermitteln
For cel = 1 To 1000
If Cells(cel, 1).Value = "" Then
s = cel
Exit For
End If
Next
MsgBox "2"
'Der ersten freien Zeile die Werte übermitteln, die in der Zeile der aktiven Zelle stehen
Worksheets("Main").Cells(s, 1).Value = name
MsgBox "3"
Worksheets("Main").Cells(s, 2).Value = id
Worksheets("Main").Cells(s, 4).Value = act
rowcopy = act
End Function
Über eine Antwort würde ich mich freuen