Besuchsberichte
21.03.2007 13:34:00
MDE
wer kann mir helfen! Habe hier ein Marko das bis auf eine Kleinigkeit problemlos läuft:
In Zelle b7 steht bei mir ein einfacher Zellverweis. Wenn ich aber auf den Button "Datenübernahme" drücke, wird die Zelle b7 nicht übertragen! Hinzu kommt noch, dass der Zellverweis (hier =t18) gelöscht ist.
Wenn ich aber manuell in b7 einen Wert eintrage und den Button drücke funktioniert die Übernahme reibungslos.
Wat nu?
Hier der Code:
Sub Schaltfläche13_BeiKlick()
For i = 1 To 7
If IsEmpty(Cells(i, 2)) = True Then
MsgBox "Es müssen alle Felder ausgefüllt werden", vbInformation, "Hinweis"
Exit Sub
End If
Next i
letzte_zeile = Sheets("ABC Klassifizierung").Range("a65536").End(xlUp).Row + 1
For i = 1 To 7
Sheets("ABC Klassifizierung").Cells(letzte_zeile, i) = ActiveSheet.Cells(i, 2)
ActiveSheet.Cells(i, 2) = ""
Next i
End Sub
Gruß
Markus