sa322
Stammgast
Hallo zusammen
Ich habe eine Datentabelle in die ich Täglich ein Börsenkurs eintrage.
Nun will ich per Makro, das ich den Wert oben in ein Feld eintrage und der es automatisch zu unterst hinschreibt, also dort wo der nächste freie Platz ist.
Ich hab das mal probiert, aber ich weiss nicht wie man eine Variable Zeile eingibt.
Probiert habe ich das so:
Nun ist ja eben D9 nicht fix. Hier noch ein Screenshot von der Tabelle:
Ausserdem währe es gut wenn die Formatierung vom Eingabefeld nicht mitkopiert wird, dafür hätte ich zwar schon ein Script, also ist das eher Nebensache:
Herzlichen Dank für die Hilfe
Ich habe eine Datentabelle in die ich Täglich ein Börsenkurs eintrage.
Nun will ich per Makro, das ich den Wert oben in ein Feld eintrage und der es automatisch zu unterst hinschreibt, also dort wo der nächste freie Platz ist.
Ich hab das mal probiert, aber ich weiss nicht wie man eine Variable Zeile eingibt.
Probiert habe ich das so:
PHP:
Range("E3").Select
Selection.Cut
Range("D9").Select
ActiveSheet.Paste
Nun ist ja eben D9 nicht fix. Hier noch ein Screenshot von der Tabelle:
Ausserdem währe es gut wenn die Formatierung vom Eingabefeld nicht mitkopiert wird, dafür hätte ich zwar schon ein Script, also ist das eher Nebensache:
PHP:
Private Sub Enter_Click()
Range("D7:D164").Select
Selection.NumberFormat = "$ #,##0.00"
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Interior.ColorIndex = xlNone
Range("E3").Select
Selection.NumberFormat = "$ #,##0.00"
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 3
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 3
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 3
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 3
End With
With Selection.Interior
.ColorIndex = 33
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
Herzlichen Dank für die Hilfe