Nur eine kleine Hilfe mit dem Script
03.12.2004 20:25:16
Thorben
ich habe vor ein paar Wochen von euch das untenstehen Script erhalten. Es dient dazu einen Preis aus einer Zelle in eine andere Tabelle mit dem aktuellen Datum zu kopieren. Ist es nun möglich, dass ich eine feste Formatierung angeben kann mit der der Wert in die anderer Tabelle übernommen wird. Bsp.: Momentan wird z.B. 6,70 übernommen ich möchte aber, dass eine Form von 000,00 übernommen wird. Also muss in der Tabelle statt 6,70 006,70 stehen.
Könnt Ihr mir weiterhelfen?
Ich habe die entsprechende Stelle im Script gekennzeichnet.
Vielen Dank!
Thorben
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim wksK As Worksheet
Dim wksDB As Worksheet
Dim wksPreis As Worksheet
Dim rng As Range
Dim iCol As Integer
Dim lRow As Long
Dim strAsk As String
If Target.Address = "$E$33" Then 'F33
Set wksK = Sheets("Kalkulation")
Set wksDB = Sheets("DB")
Set wksPreis = Sheets("Preisentwicklung")
strAsk = MsgBox("Soll der neue Einkaufspreis übernommen werden?", vbYesNo + vbQuestion, "EK ändern?")
If strAsk = vbYes Then
Set rng = wksDB.Range("A:A").Find(wksK.[D12]) 'EAN-Code in "DB" suchen
If Not rng Is Nothing Then
rng.Offset(0, 5) = wksK.[E30] 'Einkaufspreis eintragen
Set rng = wksPreis.Range("A:A").Find(wksK.[D12])
If Not rng Is Nothing Then
iCol = wksPreis.Cells(rng.Row, 256).End(xlToLeft).Column + 1
wksPreis.Cells(rng.Row, iCol) = wksK.[E30] !!! Hier müsste die Formatinfo eingetragen werden !!! & " / " & Format(Date, "dd/mm/yy")
wksK.[E30] = ""
Else
lRow = wksPreis.Range("A65536").End(xlUp).Row + 1
wksPreis.Cells(lRow, 1) = wksK.[D12]
wksPreis.Cells(lRow, 2) = wksK.[E30] !!! Hier müsste die Formatinfo eingetragen werden !!! & " / " & Format(Date, "dd/mm/yy")
wksK.[E30] = ""
End If
End If
Else
wksK.[E30] = ""
End If
End If