VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	11.12.2013 15:38:13	Howard
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	12.12.2013 12:00:10	Holger
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	12.12.2013 13:49:38	Gast17178
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	12.12.2013 18:06:48	Holger
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	12.12.2013 21:30:48	Howard
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	12.12.2013 21:39:56	Gast43681
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	13.12.2013 17:20:15	Holger
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	13.12.2013 20:21:19	Gast13587
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	13.12.2013 22:55:55	howard
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	14.12.2013 08:45:54	Howard
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	14.12.2013 15:22:21	Holger
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	15.12.2013 23:21:50	Gast8611

Ansicht des Beitrags:

Von:
Howard

Datum:
14.12.2013 08:45:54

Views:
936

Rating:

Antwort:

Thema:
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben

Hallo,

so funktioniert es:

1.) Die Tabelle wird von A1:F30 nach A2:F31 kopiert.

2.) Dann wird die letzte Zeile = "" gesetzt, also gelöscht.

3.) Nun fügt man den neuen Datensatz in die oberste Zeile A1:F1 ein:

Worksheets("Statistik").Range("A1:F30").Copy Worksheets("Statistik").Range("A2:F31")
Range("Statistik!A31:F31") = ""
Worksheets("Berechnungen").Range("E5:J5").Copy Worksheets("Statistik").Range("A1:F1")

Da dies ja ein Forum ist, in dem jeder jedem hilft, dürft Ihr das Skript , falls Ihr es gebrauchen könnt, gebrauchen, und zwar kostenlos natürlich.

Für meinen Freund Holger, der sich hier als eine Art Sittenwächter dieses Forums aufführt, aber gilt: Die Nutzungsgebühr beträgt 19,99 € ! Denn dies ist hier ja kein Forum, wo man für lau Software programmiert bekommt!

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	11.12.2013 15:38:13	Howard
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	12.12.2013 12:00:10	Holger
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	12.12.2013 13:49:38	Gast17178
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	12.12.2013 18:06:48	Holger
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	12.12.2013 21:30:48	Howard
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	12.12.2013 21:39:56	Gast43681
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	13.12.2013 17:20:15	Holger
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	13.12.2013 20:21:19	Gast13587
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	13.12.2013 22:55:55	howard
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	14.12.2013 08:45:54	Howard
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	14.12.2013 15:22:21	Holger
Datensatz in Tabelle einfügen, daß sich die anderen um eine Stelle verschieben	15.12.2013 23:21:50	Gast8611