Wie ist es eigentlich, wenn ich einer der kopierten Zellen
(zB. C18) mit Zahleninhalt, ein MINUS verpassen will?
Hallo,
habe die Prozedur WertÜbertragen entsprechend umgebaut.
Wenn man ein negatives Vorzeichen möchte, so muss beim Aufruf ein weiterer Parameter ,TRUE übergeben werden. Das Vorzeichen wird nur davor gesetzt, wenn es sich wirklich um einen Zahlenwert handelt (Fehlerprüfung). Wird der o.g. Parameter weggelassen bleibt alles beim alten.
Die Prozedur WertÜbertragen habe ich so umgestaltet, dass man damit auch einen beliebigen Textwert ohne zusätzliche Prozedur übertragen kann. Es wird geprüft, ob es sich bei der Angabe um eine Zellangabe oder einen Textwert handelt. (Zelle bekannt–> Zellinhalt, Zelle unbekannt–>Wert des übergebenen Parameters).
So, nun den Code und ich hoffe geholfen zu haben:
Private Sub KaufButton\_Click()
WertÜbertragen "MeinWunschText", 1, 9
WertÜbertragen "F10", 2, 9, True
WertÜbertragen "F11", 3, 9
WertÜbertragen "B5", 4, 9, True
WertÜbertragen "B4", 5, 9
WertÜbertragen "C20", 6, 9 - 1, True
WertÜbertragen "F9", 7, 9
End Sub
Sub WertÜbertragen(Txt\_o\_Zelle As String, Zielspalte As Integer, \_
BeginnZeile As Integer, Optional negieren As Boolean = False)
Dim leereZeile As Long
Dim Wert As Variant
On Error GoTo keineZelle
Wert = ActiveSheet.Range(Txt\_o\_Zelle).Value
On Error GoTo 0
If negieren Then
On Error Resume Next
Wert = CDbl(Wert)
Wert = Wert \* -1
On Error GoTo 0
End If
With Sheets("Tabelle2")
leereZeile = .Cells(.Rows.Count, Zielspalte).End(xlUp).Row + 1
If leereZeile
Viele Grüße tester