Office: Makro "neuer Datensatz"

Hallo,

ich habe eine Frage. Ich kenne mich relativ gute mit Excel aus (nutze Excel 2003).
Ich versuche mir momentan selber die Geschichte "Makros und VBA" näherzu bringen.

Habe gerade versucht einen Button mit einem hinterlegten Makro einzufügen, welcher mir einen neuen Datensatz in meine Tabelle einfügt.

Meine Tabelle geht von A2:D170.

Das Makro in VBA lautet

Sub Titel_Click()
Range("a2").Select
SendKeys "%n"
ActiveSheet.ShowDataForm
End Sub

Alles funktioniert prächtig. Soweit so gut.

Nun möchte ich aber über meine Tabelle ein paar Zeilen einfügen. Mein Problem: das Makro funktioniert nicht mehr. Ich dachte, es liegt daran, das die Tabelle jetzt nicht mehr in A2 sondern in A10 beginnt. Also habe ich das Makro in

Sub Titel_Click()
Range("a10").Select
SendKeys "%n"
ActiveSheet.ShowDataForm
End Sub

geändert. Aber es funktioniert trotzdem nicht. Egal wie ich meine Tabelle oder das Makro veränder oder verschiebe, das Makro funktioniert nur, wenn die Tabelle in A2 beginnt. Ich habe auch schon versucht die Tabelle in ein neues Blatt zu kopieren und das Makro neu zu machen. Aber das gleiche Ergebnis zuhalten.

Kann mir da jemand weiterhelfen?? Wenn man das nicht ändern kann: Ich möchte unter der Tabelle eine "Auswertung" mit Summe, Anzahl, Durchschnitt haben. Da aber nach mehreren eingefügten Datensätzen die Auswertung irgendwann überschrieben wird, wollte ich die über die Tabelle sätzen. Oder gibt es eine Möglichkeit, die Auswertung immer 2 Zeilen unter dem letzten Datensatz zu halten? Sozusagen, das immer wenn ich einen Datensatz (per Button) einfüge, die Auswertung um eine Zeile runterrutscht.

Wäre echt super, wenn mir jemand helfen könnte.

Vielen Dank im Voraus

 

Hallo!

Excel kann Listen nur eindeutig erkennen, wenn KEINE Leerzeilen vorhanden sind, daher wahrscheinlich das Problem, denn du schreibst ja

Wenn ich dein zweites Problem dazu ziehe, dann würde ich sagen, dass du in diesem Fall womöglich ganz auf VBA verzichten kannst, wenn du über Menü Daten > Liste > Liste erstellen gehst. Hier kannst du unter der Liste eine Ergebniszeile einrichten, die sich mit der Eingabe neuer Daten nach unten verschiebt. Deine Daten musst du jetzt nicht mehr über eine Maske eingegeben, sondern direkt in die Liste in die Zeile mit "*".
Die von dir vorgeschlagene Alternative, die Ergebnisse an den Kopf der Tabelle zu stellen, funktioniert natürlich auch und ist meiner Meinung nach auch recht komfortabel, wenn man diesen Bereich dann über Menü > Fenster > Fixieren immer sichtbar hält.

 

Hallo,

vielen Dank für Deine Hilfe. Die Sache mit der Liste>Liste kannte ich noch gar nicht. Man lernt halt nie aus.

Vielen Dank

 

Hallo!

Diese Funktion gibt es auch erst seit Excel2003, daher brauchst du dich nicht zu grämen...