Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
172to176
172to176
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten automatisch ins nächste Tabellenblatt

Forumthread: Daten automatisch ins nächste Tabellenblatt

Daten automatisch ins nächste Tabellenblatt
28.10.2002 10:29:00
sandra
Hallo,
ich habe folgendes Problem:
und zwar habe ich in einer Exceltabelle diese Daten:

....
1 13.05.02 Auto Sonntag
2 20.08.02 Auto Dienstag
3 25.10.02 Bus Montag
....

wenn ich jetzt in der dritten Spalte Fahrrad eingebe, soll Excel die komplette Zeile in mein anderes Tabellenblatt (im Blattregister), das Fahrrad heißt, übertragen und die Zeile aus dem aktuellen Tabellenblatt entfernen. Geht das überhaupt, wenn ja wie? Und wenn, geht das auch, dass direkt nach dem Verlassen des Feldes, in welches man Fahrrad eingegeben hat? Oder geht das, wenn ich die Exceldatei öffne? In dem zweiten Tabellenblatt sollen dann nach und nach immer mehr Daten (Zeilen) sein.

Vielen Dank,
sandra

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Daten automatisch ins nächste Tabellenblatt
28.10.2002 10:57:39
Norbert
Hallo Sandra,

dies direkt unter das Tabellenblatt:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 3 Then
Nach_Fahrrad_Verschieben
End If

End Sub

das in ein modul:

Sub Nach_Fahrrad_Verschieben()

On Error Resume Next
With ActiveCell.Offset(-1, 0).Select
If ctiveCell.Value = "Fahrrad" Then
ActiveCell.EntireRow.Select
Selection.Copy
Sheets("Fahrrad").Select
Cells(Range("A1").CurrentRegion.Rows.Count + 1, 1).Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
Selection.Delete
End If
End With
End Sub

Gruß Norbert


Anzeige
Re: Daten automatisch ins nächste Tabellenblatt
28.10.2002 11:10:04
bernd
Hallo Sandra,

warum eigentlich erst in eine Tabelle eingeben, dann kopieren und das ganze wieder lösche?

Warum denkst DU nicht über eine USER-Form nach, in der Du das entsprechende Textfeld abfragst und dann die Eingaben in die entsprechenden Tabellen eingibst.

Ist nur so ne Idee.

Gruß

Bernd

P.S.: Prinzipiell geht alles, was Du oben möchtest.

Abfrage der Eingabe wird durch sogenannte Onentry-Makros abgedeckt

Sub auto_open()

Sheets("Tabelle1").OnEntry = "Makro1"

End Sub

Sub Makro1()
If ActiveCell.Column = 3 Then 'dritte Spalte
If ActiveCell.Value = "Fahrad" Then
MsgBox "hallo"
'hier jetzt das was passieren soll wenn Fahrad eingegeben wird
End If
End If

End Sub

Ähnlich könnte Deine zweite Frage beantwortet werden:

Hier dann alles in das auto_open Makro. Der VBA-Code sieht aber dann anders aus.



Anzeige
Re: Daten automatisch ins nächste Tabellenblatt
05.11.2002 12:00:19
sandra
Danke! Dein Hinweis auf das .OnEntry-Ereignis hat mich auf den richtigen Pfad gesetzt. In die Workbook_open-Routine gesetzt bewirkte es wahre Wunder.

Gruss,
Stef für 'sandra'

p.s. bei dem 'Fahrrad' handelt es sich um eine Statusangabe in einer bestehenden Menge von Datenzeilen. Dieser Status wechselt ständig, so dass eine Eingabemaske mir nicht genützt hätte.

Anzeige
Re: Daten automatisch ins nächste Tabellenblatt
05.11.2002 12:05:38
sandra
Ebenfalls ein Danke! Deinen Teil 'Nach_Fahrrad_Verschieben' konnte ich besonders gut gebrauchen - die .currentregion-.rows.count-Eigenschaft war mir noch völlig unbekannt. Der Compi tut nun was ich will - jipppijey!

Gruss,
Stef für (sandra)

Re: Daten automatisch ... -> Danke!
06.11.2002 09:13:39
sandra
Hallo Bernd,

dein Hinweis auf das .OnEntry-Ereignis war super hilfreich. Danke!

Stef für (sandra)

p.s. das Verschieben passiert in einem grösseren, schon bestehenden Datenhaufen - Eingabemasken wären also nicht hilfreich.

Anzeige
;

Forumthreads zu verwandten Themen

Daten aus Tabellenblatt kopieren
Jochen

Hi,
ich kopiere daten von einem Tabellenblatt in ein anderes:
Sub Übersicht() Dim intS As Integer 'letzte belegte Spalte auf Blatt 1 Sheets("Daten").Columns("C:H").Copy With Sheets("Übersicht") intS = .Cells(1, Columns.Count).End(xlToLeft).Column .Cells(1, intS).PasteSpecial Paste:=xl...
08.08.2008 22:24:43
Thread-ID: 1000422
2 Beiträge
Pivot-Table-Makro in mehreren Tabellen-Blättern
Ela

Liebe Fachleute,
ich habe eine Arbeitsmappe mit mehreren Tabellen-Blättern. Nun habe ich ein Makro zur Erstellung einer Pivot-Tabelle aufgenommen. Ich möchte, unabhängig davon, auf welchem Tabellenblatt ich mich gerade befinde, das Makro ablaufen lassen. Und zwar so, dass das Makro immer au...
26.08.2008 10:04:08
Thread-ID: 1004699
3 Beiträge
Anzeige
Datensätze in neues Tabellenblatt
kutzmutz

Hallo liebe Experten,
ich bastele für meinen Vater eine Übersicht über Bestellungen. Es gibt ein Tabellenblatt "Ersatzteile" in dem Teile mit Bestellnummern, Preisen etc. versehen sind. Wird ein Teil benötigt, wird die Zeile grün markiert und der Gesamtpreis der zu bestellenden Teile ans En...
26.08.2008 23:09:00
Thread-ID: 1004943
3 Beiträge
Datenbereich dynamisch in Pivot-Tabelle einbinden
Markus

Hallo allerseits,
ich habe folgendes Problem. Für die Erstellung einer Pivot-Tabelle muß ich den Datenbereich manuell selektieren. Da sich aber mein Datenbereich ständig ändert, würde ich das ganze automatisiert selektieren lassen. Wie krieg' ich das in dem folgenden Makro unter ?:
Rang...
02.09.2008 14:20:30
Thread-ID: 1006792
4 Beiträge
Anzeige
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
Daten in UF und nicht in Tabelle
Wolfgang

Hallo,
den untenstehenden Code hatte mir Tino soweit zur Verfügung gestellt und er läuft auch super. Nun kam mir nur die Überlegung, ob die zu importierenden Daten anstatt in eine Tabelle auch in ein Userform mit entsprechenden Textboxes eingefügt werden können (Textbox1 = Vorname, Textbox...
10.09.2008 20:31:00
Thread-ID: 1008913
8 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
2 Combobox in UF in Tabelle1 u. Daten in Tabelle 2
Bernhard

Guten Abend liebe Excelprofis,
ich komme nicht weiter, folgende Aufgabenstellung zu lösen:
Ich rufe in Tabelle 1 eine Userform auf, die 2 ComboBoxen hat. (ArtikelNr. ArtikelBezeichnung). In Tabelle 2 stehen in Spalte A die ArtikelNrn. und in Spalte B die ArtikelBezeichnungen untereinand...
17.09.2008 21:32:00
Thread-ID: 1010532
5 Beiträge
Daten in Listbox und in Tabelle
otto

Hi, mit folgendem code suche ich Daten in einem Tabellenblatt und lese die Funstellen in eine Listbox ein, gleichzeitig werden die Daten in ein anderes Tabellenblatt geschrieben, dass ich sie für weitere Aktionen (z. B. filtern) zur Verfügung habe.
With Worksheets("Auftrag").Range("a10:af30...
18.09.2008 10:45:00
Thread-ID: 1010647
3 Beiträge
Datensätze in Tabellenblätter schreiben
TomTom


Hi,
ich habe eine Excelmappe mit 4 Bättern. Auf dem ersten Blatt (Spalte A) stehen die Rohdaten drin. Die sehen in etwar so aus:
START;flag,2,23,,,,34,45,33,45,,,,,,,56
ATTEMPT;flag,1,45,,12,,34,,,45,,,,,7,,56
START;flag,2,23,,,,34,45,33,45,,,,,,,56
STOP;flag,3,45,,5,,,...
30.09.2008 13:43:00
Thread-ID: 1013375
3 Beiträge
Anzeige
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Daten aus Pivot-Tabelle kopieren
Thomas

Guten Abend ,
wie kann ich per Schaltfläche einen Datenbereich aus einer Pivottabelle kopieren und in einem anderen Tabellenblatt einfügen?
Gruß
Thomas
03.10.2008 21:10:24
Thread-ID: 1014090
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige