code erklären
04.01.2007 09:12:45
Servoazubi
Kann mir mal jemand kurz den Code hier erklären und wie genau ich die variablen einsetzen muss ? Den habe ich gestern hier auf der Seite bekommen, er dient dazu das man verschiedene Werte aus verschiedenen Textfeldern einer Userform in eine Zelle einer Excel Tabelle Untereinander schreibt .... die Daten müssen auf jeden Fall in einer zelle untereinander stehen. Der Code so wie er hier ist funktioniert ..... möchte ihr erklärt haben weil ich den noch für einige andere Felder brauche und euch dann nicht immer fragen muss sondern ihn dann selber umändern kann ... danke
For iVkPreis = 1 To 6
If Controls("txtstvk" & iVkPreis).Value "" Then
If Len(.Range("B12").Value) = 0 Then
.Range("B12").Value = Format(Controls("txtstvk" & iVkPreis), "#,##0.00")
Else
Range("B12").WrapText = True
.Range("B12").Value = .Range("B12").Value & Chr(10) & _
Format(Controls("txtstvk" & iVkPreis), "0.00")
End If
End If
Next iVkPreis