VBA Excel - Neue Zeile

[goospace]

Hallo zusammen,

Habe ein kleines Problem.

Ausgangspunkt:

Möchte eine neue Zeile einfügen durch ein Klick auf eine Schaltfläche.

Die neue Zeile (Zeile3) sollte die gleichen Formlen enthalten wie die obere (Zeile2), aber ohne Daten und mit den Aktuellen "heutigem Datum" versehen.

[table="width: 500, class: grid"]
[tr]
[td]Zeile1[/td]
[td]Datum [/td]
[td]Name [/td]
[td]usw.[/td]
[/tr]
[tr]
[td]Zeile2 [/td]
[td] Aktuelles Datum [/td]
[td]Hans Muster (SVERWEIS)[/td]
[td] (SVERWEIS)[/td]
[/tr]
[tr]
[td]Zeile3[/td]
[td][/td]
[td][/td]
[td][/td]
[/tr]
[/table]

Hoffe habe mich verständlich erklährt, DANKE schon mal im Voraus für eure Vorschläge.

mfg goospace

 

[blackraven]

Die einfachste Art ein Makro zu entwickeln ist, das Scenario per Hand durchzuspielen und dabei den Makrorecorder laufen zu lassen.
Das Makro könntest du dann auf eine Schaltfläche legen.
Aus meiner Sicht gäbe es da zwar noch ein paar mehr offene Fragen zu klären, die man mit variablen abfangen müsste aber ich bin ja ein Freund von "learning by doing" und nicht "lass andere arbeiten", wenn du verstehst was ich meine.

 

[s_fiebig]

Was genau ist denn die Frage?
Mit Add kannst Du eine Zeile hinzufügen: http://msdn.microsoft.com/en-us/library/office/ff196248.aspx
Und über Range kannst Du mittels Formula eine Formel auf den einzelnen Zellen anwenden: http://msdn.microsoft.com/en-us/library/office/ff838835.aspx

Mit dem Makrorecorder kann man meisten ganz gut die entsprechenden Möglichkeiten testen.

Edit: Jemand war schon schneller :-)

 

[Snooty]

Die neue Zeile (Zeile3) sollte die gleichen Formlen enthalten wie die obere (Zeile2), aber ohne Daten

Durch die SVerweise wird zwangsläufig etwas in den Zellen stehen - also entweder Formel/Daten oder keine Formel/keine Daten.

Dim iCopyRow As Integer, iPasteRow As Integer
Dim wks As Worksheet

Sub zeilen_einfuegen()

Set wks = Sheets("Tabelle1") 'Arbeitsblatt'

iCopyRow = wks.UsedRange.SpecialCells(xlCellTypeLastCell).Row 'letzte Zeile ermitteln'
iPasteRow = iCopyRow + 1 'neue Zeiennummer die eingefügt werden soll'

wks.Rows(iCopyRow & ":" & iCopyRow).Copy 'letzte Zeile kopieren'
wks.Rows(iPasteRow & ":" & iPasteRow).Insert Shift:=xlDown 'kopierte Zeile darunter einfügen'
wks.Range("A" & iPasteRow).Value = Now() 'Aktuelles Datum in Zelle A einfügen'
Application.CutCopyMode = False

End Sub

 

[goospace]

Hallo zusammen

Möchte noch bei allen bedanken für eure Feedbacks

@Snooty

SUPER DANKE! Hast genau Verstanden was ich wollte , hehe
Nochmals DANKE!

mfg goospace