Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatische Datenübertragung in anderes Tabellenb

Automatische Datenübertragung in anderes Tabellenb
24.04.2006 14:03:33
Walter
Hi!
Ich verzweifele gerade daran ausgewählte Daten (z.B. per X in eine der Zellen) automatisch in ein anderes Tabellenblatt zu übertragen. Es sollen also wenn in der Zelle ein X gesetzt wird die ganze Zeile übertragen werden. Daten ohne X sollen nicht übertragen werden. Leerzeilen in dem neuen Tabellenblatt zwischen zwei Datensätzen dürfen auch nicht vorkommen.
Kann man das ohne Betätigung eines VBA Buttons realisieren? Falls ja kann mir jemand bei der Umsetzung helfen?
Freundliche Grüße!
M.W.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatische Datenübertragung in anderes Tabellenb
24.04.2006 14:35:15
Peter
Hallo Walter,
füge das nachfolgende Makro in das Tabellenblatt, aus dem die Daten kommen sollen ein.
Alt + F11
im linken Fenster ggf. das Poject deiner Mappe am +-Zeichen öffnen
mit rechter Maustaste auf das Tabellenblatt klicken
Code anzeichen anklicken und das hier ausgeschnittene Makro dort hineinkopieren.
Annahmen: Die Spalte mit dem x ist B, die kopierte Zeile im Quell-Blatt soll nsch dem Kopieren gelöscht werden.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim WkSh_Z   As Worksheet
Dim lFreieZ  As Long
Dim LIndx_Z  As Long
Set WkSh_Z = Worksheets("Tabelle2")
If Not Intersect(Target, [B1:B300]) Is Nothing Then
With Target
If LCase(.Value) = "x" Then
Application.EnableEvents = False
lFreieZ = WkSh_Z.Cells(Rows.Count, 2).End(xlUp).Row + 1
Rows(Target.Row).Copy WkSh_Z.Rows(lFreieZ)
Rows(Target.Row).Delete
Application.EnableEvents = True
End If
End With
End If
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Automatische Datenübertragung in anderes Tabellenb
24.04.2006 15:10:25
Walter
Erstmal herlichen Dank für die schnelle Hilfe!
Leider scheint es nicht soganz zu funktionieren.
Vielleicht sollte ich noch einige weitere Infos geben:
Die Zeilen sollen im (bereits vorhandenen) Zieltabellenblatt ab Zeile 23 eingetragen werden.
Die Zeilen beginnen im Quelltabellenblatt bei Zeile 4.
Als Fehlermeldung kommt aktuell:
Index außerhalb des gültigen Bereichs
AW: Automatische Datenübertragung in anderes Tabellenb
24.04.2006 16:00:49
Peter
Hallo Walter,
die Infos hätten gleich dabei sein sollen.
Du musst natürlich den Ziel-Tabellenblattnamen (hier "Tabelle2") an deine Gegebenheiten anpassen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim WkSh_Z   As Worksheet
Dim lFreieZ  As Long
Dim LIndx_Z  As Long
Set WkSh_Z = Worksheets("Tabelle2")
If Not Intersect(Target, [B4:B500]) Is Nothing Then
With Target
If LCase(.Value) = "x" Then
Application.EnableEvents = False
lFreieZ = WkSh_Z.Cells(Rows.Count, 2).End(xlUp).Row + 1
If lFreieZ < 23 Then lFreieZ = 23
Rows(Target.Row).Copy WkSh_Z.Rows(lFreieZ)
Rows(Target.Row).Delete
Application.EnableEvents = True
End If
End With
End If
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige

300 Forumthreads zu ähnlichen Themen

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
Anzeige
Daten per Klick in ein anderes Tabellenblatt
Dirk

Hallo @all,
möchte gerne verschiedene Daten aus dem Tabellenblatt Lieferschein (neu) in das Tabellenblatt Datenbank per Klick übernehmen. Dann wieder neue Daten eingeben im Lieferschein und wieder klick...und die Daten müssten dann wieder in das Tabellenblatt Datenbank eine Zeile Tiefer (+1...
10.09.2009 09:58:37
Thread-ID: 1101665
3 Beiträge
Werte in anderes Tabellenblatt übertragen
Marcus

Hallo, zusammen,
Ich habe hier ein dolles Makro, was mir hier jemand aus diesem Forum geschrieben hat. Dieses Makro funktionierte bisher auch ganz gut, bis durch ein Zufall ein Fehler entdeckt wurde. Dieser Fehler liesse sich durch genau festgelegte Bedingungen umgehen, aber vielleicht läss...
03.10.2009 20:46:05
Thread-ID: 1106914
6 Beiträge
Anzeige
Daten autom. von einem in anderes Tabellenblatt
einem

Hallo,
Ich möchte gere Daten von einem Tabellenblatt automatisch in ein anderes Tabellenblatt kopieren.
Geneau sehe es so aus:
Ich möchte gerne die Daten aus Tabellenblatt "Daten" in Tabellenblatt "Tabelle" automatisch kopieren lassen. Dass heißt, das die richtige Zahl dem richtigen...
25.11.2009 11:31:55
Thread-ID: 1119901
5 Beiträge
Daten in andere Tabelle bringen
Gerd
Hallo Noraversuche es mit folgender Formel
=WENN(ISTFEHLER(SVERWEIS(C1;Tabelle1!A:B;2;0));0;SVERWEIS(C1;Tabelle1!A:B;2;0))
diese schreibst Du in die Tabelle2 in Spalte D1MfG
Gerd
15.04.2002 20:41:42
Thread-ID: 113525
6 Beiträge
Wert in anderes Tabellenblatt übertragen
Ute

Hallo,
ich brauche dringend eure Hilfe.
Ich habe mehrere Tabellenblätter das erste Tabellenblatt erhält mehrere Termine zu bestimmten Schulungen,
gerne möchte ich neben den Terminen, die Anzahl der noch verfügbaren Plätze angeben.
In dem anderen Tabellenblatt können sich die T...
16.03.2010 16:56:40
Thread-ID: 1146342
11 Beiträge
Daten von eine in die andere Tabelle übertragen
eine

Gibt es hierzu eine Makro Lösung?
Ich habe zwei Sheets:
1. Disposition
2. NMPKurz
Ich möchte die Daten aus der Disposition in NMPKurz in einer anderen Anordnung übertragen.
Hierzu habe ich eine Beispielsdatei eingestellt.
https://www.herber.de/bbs/user/71160.xls
Da...
21.08.2010 14:20:27
Thread-ID: 1173501
8 Beiträge
Daten in anderes Tabellenblatt kopieren
Werner

Hallo zusammen,
ich möchte Daten von Activen Tabellenblatt in die Tabelle1 kopieren. Ich habe es mit nen Makrorekorter propiert aber ohne Erfolg.
Es sollen im Act. Tabellenblatt die Bereiche:
A1:A30 in die Tabelle1 in die gleichen Zellen (A1:A30) kopiert werden.
C1:A30 in die Ta...
15.09.2010 20:26:28
Thread-ID: 1177919
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
3
2
5
2
4
5
10
7
9
7
8
9
8
9
7
1
7
3
4
4
2
3
3
7