Habe diesen Code hier bekommen:
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
Meine Fragen sind:
Wieso muß da -1 in dieser Zeile stehen ?
WertÜbertragen „C20“, 6, 9 - 1, True
Auch wenn ich -1 weglasse, nach einiger Zeit wird das
Euroformat nicht mehr mitkopiert… wieso??
Danke für jede Antwort
MFG
Xen55
Hallo Xen,
Antwort findest du im alten Thread http://www.wer-weiss-was.de/cgi-bin/forum/showarticl…
Warum bleibst du nicht in deinem alten Thread und eröffnest ständig neue Threads mit Ergänzungen zur urspünglichen Frage?
Gruß
Franz
Danke
Hallo Bernd,
Danke für deine doppelte Antwort. Habe den ohne Duplikate threat geöffnet weil das ja ein Zusatz zu dem alphabetischen Ordnen war. Also eine neue Frage.
Super Bernd, habe soooo lange nach der Lösung gesucht.
MFG
Xen55
Ups ein Thread runter
Hallo Bernd,
Der Kommentar galt dem Thread unten.
Ja diesen Thread hätte ich nicht öffnen müssen. Sorry.
MFG
Xen55