Zeilen Dynamisch machen ?!

Guten tag leute ,
hab ein problem ... ich mache gerade eine liste in der dinge eingetragen werden sollen , und in den jeweiligen monat gespeichert werden sollen ....
Die monate habe ich über ein auswahlmenü eingebaut ... so weit so gut also .
Wenn ich nun ein eintrag vornehme und auf speichern klicke ( auch eingebaut ) soll er die daten ... welche max. 10 pro eintrag sind in den ausgesuchen monat gespeichert werden .
Auc hdas geht .
Nun das problem ....
Wenn ich zbden Januar aussuche ... habe 5 einträgegemacht und drücke speicehrn , speichert er die 5 ( listet aber trotzdem von 1- 10 auf ) , mach ich einen neuen eintrag und wähle wieder januar , überschreibt er den alten inhalt der folie Januar .
Wie kann ic hdas ganze Dynamisch machen , das die numemr fortlaufent is und er alle einträge immer weiter untereinander aufzeichent ?
Damit es für euch anschaulicher ist auch mit code und so hier könnt ihr die datei finden :
http://rapidshare.com/files/138692364/Verbrauch_2008-005.xls.html
für hilfe wäre ic hsehr dankbar ....
Liebe Grüße
Dave

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Dave,
hier das angepasste Makro, um "dynamisch" in die Monatsblätter zu kopieren.
Um die Zeilen fortlaufend zu nummerieren muss du im Blatt "Eingabe" die Nummern per Formel erzeugen.
Formel in Zelle A12: =A11+1
Diese Formel dann anch unten kopieren.
So werden in den Monatsblättern die Zeilen dann auch automatisch nummeriert. Das Makro ersetzt bei jedem Kopiervorgang dann die Formel im Monatsblatt durch die Werte.
Kleines Problemchen noch: je nach Anzahl Zeilen im Eingabeblatt sind die Zeilen im Monatsblatt nicht mehr abwechselnd Grau/Weiss. ggf. ist es günstiger den Farbwechsel je Zeile per bedingter Formatierung zu realisieren.
Gruß
Franz


Private Sub btn_Save_Click()
Dim lngLastRow As Long
With Me '=Blatt Eingabe
'Letzte ausgefüllte Zeile in Spalte B Blatt Eingabe
lngLastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
If lngLastRow >= 12 Then
.Range(.Cells(12, 1), .Cells(lngLastRow, 12)).Copy
With Worksheets(Me.ComboBox1.Value)
'nächste freie Zeile in Spalte A des Monats-Blatt
lngLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
'Daten einfügen
.Cells(lngLastRow, 1).PasteSpecial Paste:=xlPasteAll
If lngLastRow = 2 Then .Cells(2, 1).Value = 1
'Formeln in Spalte A in Werte umwandeln
.Columns(1).Copy
.Columns(1).PasteSpecial Paste:=xlPasteValues
End With
'daten im Eingabeblatt löschen
.Range("B12:L21").ClearContents
MsgBox "Die Daten wurden in den Monat : " & Me.ComboBox1.Value _
& " übertragen und gespeichert.", vbOKOnly, "Speichern"
Else
MsgBox "Keine Daten zum kopieren"
End If
End With
End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen Dynamisch machen ?!

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread