[EEXCEL 2003] Wert eintragen

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:

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
 

sa322

Stammgast
Problem gelöst!

Private Sub Enter_Click()
MsgBox "Ich bin noch nicht fertig programmiert!" 'Vorwarnung!
Cells(3, 5).Select
Selection.Cut 'Wenn möglich nur Zahl nicht Formatierung, sonst siehe unten
Cells((Cells(5, 4).Value), 4).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Nun bleibt nur noch die Frage ob es machbar ist das die Formatierung nicht übernommen wird.
 

Nebuk

PCtipp-Moderation
Teammitglied
Welche Formatierung möchtest du nicht mitgeben? Die von der aktuellen Zelle? Warum formatierst du die jeweilige Zelle nicht einfach so, wie du sie haben möchtest?
 
Oben