Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datensatz in anderes Arbeitsblatt verschieben

Forumthread: Datensatz in anderes Arbeitsblatt verschieben

Datensatz in anderes Arbeitsblatt verschieben
22.11.2006 14:00:33
Ben
Hallo,
Ich möchte mit einer Schaltfläche Datensätze, abhängig von einem Wert, von einem Arbeitsblatt in ein anderes verschieben und da das Ganze etwas kompliziert ist, habe ich ein Beispiel gemacht:
https://www.herber.de/bbs/user/38407.xls
Ich stelle mir das so vor, dass man im Arbeitsblatt 1. Stock z.B. bei Petra Meier die Zimmer-Nr. 105 mit 207 überschreibt und dann die Schaltfläche "Zeile verschieben" wählt. Dann wird die Zeile ins Arbeitsblatt 2. Stock verschoben und (idealerweise) unten bei der jeweils ersten freien Zeile angefügt. Wenn die neue Zimmer-Nr. mit 3 beginnt wird in das Arbeitsblatt 3. Stock verschoben.
Geht so etwas mit VBA?
Danke für jeden Tipp.
Gruss
Ben
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datensatz in anderes Arbeitsblatt verschieben
23.11.2006 08:02:18
Stefan
Hallo Ben,
du brauchst hier eine Schleife.
Versuche mal den Code im Anfang, musst evt. noch bisschen rumbasteln, da ich nicht probiert habe.
dim i as Variant
dim ie as Variant
zähler=1
sheets("tabelle1").cells (1,1).select
for i = 1 to Sheets("tabelle1").range(endxp) (=hier wird von Zeile 1 bis zur letzten
beschriebenen Zeile die Werte abgearbeitet)
if cells((1,1)= "dein Wert" then
cells(1,1). copy
sheets ("tabelle2").select
cells(ie + zähler,1).select
selection. past (hier wird das kopierte eingefügt, ist aber nicht ganz vollständig,
einfach mit Makrorecorder aufzeichnen und das in den Code hier
einbauen)
end if
next i
next ie
Wie gesagt, hab es nicht probiert, must wahrscheinlich noch ein bisschen rumbasteln.
Gruß
Stefan
Anzeige
AW: Datensatz in anderes Arbeitsblatt verschieben
23.11.2006 10:04:53
Ben
Hallo Stefan
Habe versucht etwas rumzubasteln, bin aber nicht wirklich erfolgreich gewesen. Meine VBA-Kenntnisse sind einfach zu beschränkt.
1. Eine grundsätzliche Frage: Komme ich bei Deinem Ansatz mit 1 Schaltfläche "Zeilen verschieben" pro Arbeitsblatt aus, so dass alle Zeilen, die bei der Zimmer-Nr. z.B. mit einer 2 oder 3 beginnen in die jeweiligen Arbeitsblätter verschoben werden? Das wäre natürlich optimal.
2. Damit zusammenhängend: Muss ich bei "Dein Wert" eine Zimmer-Nr. eingeben oder kann ich da etwas wie 2* (für "beginnt mit 2") eingeben?
3. Habe mal folgenden Code probiert:

Private Sub CommandButton1_Click()
Dim i As Variant
Dim ie As Variant
zähler = 1
Sheets("tabelle1").Cells(1, 3).Select
For i = 1 To Sheets("tabelle1").Range(endxp)
If Cells(1, 1) = "207" Then
Cells(1, 1).copy
Sheets("2. Stock").Select
Cells(ie + zähler, 1).Select
Selection.copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
Next i
Next ie
End Sub

Führt zur Fehlermeldung: Fehler beim Kompilieren. Next ohne For.
4. Datensätze verschieben: Ich kann nicht einfach ausschneiden und einfügen. Sonst gehen mir in meiner Originaldatei beim Ausschneiden die Formatierungen und auch die Comboboxen futsch. Ich müsste entweder kopieren, auf neuem Arbeitsblatt Inhalte einfügen und dann zurück gehen, um die Inhalte der kopierten Zeile zu löschen. Oder gibt es mit VBA eine Möglichkeit nur die Inhalte auszuschneiden?
Gruss
Ben
Anzeige
AW: Datensatz in anderes Arbeitsblatt verschieben
24.11.2006 14:38:42
Stefan
Hallo Ben,
sorry, das "next ie" las mal weg, hier muß dann im Blatt2 in z.B. einer Spalte erst nach der letzten beschriebenen Zeile gesucht werden und dann die Zeile darunter das Kopierte eingefügt werden.
Zu deiner 1. Frage: du kannst grundsätzlich bis zu 64 KB Makrogröße pro Button hinterlegen, und das ist schon eine ganze Menge, weiss ich aus eigner Erfahrung.
2."dein Wert" ist eine beliebige Variable, es kann eine Zahl sein, Buchstaben oder Wort oder auch Wörter, aber sobald was als Text behandelt wird, immer mit "".
4. Grundsätzlich kannst du alles, was du normal in Excel durch klicken verschiedener Buttuons machst z.B. Kopieren, Inhalte einfügen (nur Werte) auch als Makro aufzeichnen und dann in einem Stück abarbeiten lassen, es erspart also die viele rumklickerei, nur wenn du dann mit Variablen arbeiten willst, must du diese in das aufgezeichnete Makro noch ergänzen, das geht nicht anders.
Hier noch ein Buchtipp, ist sehr leicht zu lesen mit vielen praktischen Anwendungen und fertigen Makros: Excel VBA von Markt und Technik. Ich hab vor einem halben Jahr hiermit begonnen und möchte sagen, das meine Kenntnisse jetzt durchaus akzeptabel sind.
Falls du also noch weiteren Komfort für deine Datei möchtest, das Buch lohnt sich.
Gruß
Stefan
Anzeige
AW: Datensatz in anderes Arbeitsblatt verschieben
24.11.2006 15:29:28
Herbert
Hi,
"sheets ("tabelle2").select"
"cells(ie + zähler,1).select"
Was ist denn das für ein Sch...buch, aus dem du solchen Humbug lernst?
"das meine Kenntnisse jetzt durchaus akzeptabel sind."
Akzeptabel für wen? Als Antworter in diesem Forum sicher nicht.
mfg Herbert
AW: Datensatz in anderes Arbeitsblatt verschieben
26.11.2006 13:15:35
Ben
Hallo Herbert
Hast Du denn einen Lösungsvorschlag für mein Problem?
mfg
Ben
Anzeige
AW: Datensatz in anderes Arbeitsblatt verschieben
27.11.2006 14:08:50
Ben
Hallo Herbert
Super Dein Code, funktioniert 1A; vielen Dank schonmal. Konnte ihn auch auf meine Originaldatei anpassen. Nur noch 1 Problem habe ich: Ich möchte die Zeilen ja nicht kopieren sondern verschieben. Habe deshalb versucht den Code entsprechend abzuändern:
.
.
.
Sheets("1. Stock").Range(Zellen).Cut Ws.Cells(lngLZ, 1)
Set Ws = Nothing
End Sub
Ausschneiden funktioniert so auch, aber in meiner Originaldatei gehen dadurch die Formatierungen inkl. Comboboxen futsch (wie unter 4. bei meiner Antwort an Stefan beschrieben). Wenn ich manuell verschiebe, muss ich zuerst die Zeile kopieren, dann im anderen Arbeitsblatt Werte einfügen und zurück gehen, um den Inhalt der kopierten Zeile zu löschen.
Gibt es mit VBA eine Möglichkeit nur die Inhalte auszuschneiden oder kann man den "Umweg" über kopieren-löschen im Code hinterlegen?
mfg
Ben
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
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Anzeige
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Werte in anderes Tabellenblatt übertragen
Bibo

Hallo liebe EXCEL-Freunde,
ich habe in der Online-Suche leider kein Makro gefunden, das ich mit meinen minimalen VBA-Kenntnissen hätte selbständig auf meine Problematik anpassen können und bitte Euch deshalb um Eure Hilfe.
In das Tabellenblatt "Kommission" der Beispielmappe, das als Har...
31.08.2008 17:54:00
Thread-ID: 1006231
4 Beiträge
Anzeige
Bestimmten wert aus anderer Tabelle ermittlen.
Torsten

stehe gerade etwas auf dem schlauch....grummel sehe bestimmt den formel vor zeilen nicht ;)
also mal meion problem mal kurz umrissen:
Tabelle A - sheet1
Spalte B : Nummern
Spalte G : Bezeichner
Tabelle B - sheet2
Spalte G : Nummern
Spalte H : Bezeichner
erklärung...
10.09.2008 17:31:48
Thread-ID: 1008877
2 Beiträge
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Zellen von einer in die andere Tabelle kopieren
einer

Guten Morgen!
Ich habe 2 Tabellen. Eine Quelltabelle und eine ZielTabelle. Ich möchte nun die Daten aus der Quelldatei in die Zieldatei einfügen (aber Werte ohn Formatierung einfügen d.h. PasteSpecial). Irgendwie will das nicht gehen. :(
Dim wks As Excel.Worksheet
Dim Quell As Excel...
16.10.2008 10:53:15
Thread-ID: 1016793
5 Beiträge
Anzeige
Zelleninhalt in andere Tabelle übertragen
Michael

Liebe Leute,
ich bin eben auf dieses tolle Forum gestossen und muss gleich mal mit einer Frage nerven. Mit der Suche habe ich leider keine passenden Antwort gefunden.
Ich habe folgendes Problem. Ich verarbeite mit Excel Informationen von mehreren tausend Mitarbeitern meines Arbeitgeber...
17.11.2008 16:29:54
Thread-ID: 1025295
12 Beiträge
Zugriff auf Zellen in anderer Tabelle mit Indirekt
Florian

Hallo,
ich hab mal wieder ein Problem, bei dem ich nicht weiterkomme.
Ich möchte, dass man in die Tabelle die Adresse einer Zelle eingibt, und dann der Wert dieser Zelle übernommen wird.
Die Zelle, deren Wert übernommen werden soll, liegt aber in einer anderen Tabelle (gleiche Mappe...
06.03.2009 21:27:57
Thread-ID: 1057475
3 Beiträge
Zellwert auf anderes Tabellenblatt übernehmen
Jan

Hallo zusammen
ich habe in den Zellen A10:A10010 diverse Werte stehen. Jetzt möchte ich, dass wenn man auf so einen Wert draufklickt, in der Zelle A8 eines anderen Tabellenblattes genau dieser Wert erscheint... Ist das irgendwie machbar mit einem Makro oder so? Wenn ja, dann wäre ich um jed...
10.03.2009 15:49:15
Thread-ID: 1058747
9 Beiträge
Daten aus Tabellenblatt einlesen - ohne ADO record
Gonzer

Hallo zusammen,
ich habe folgendes Problem. Mit lieber 2 Tabellen in der gleichen Arbeitsmappe vor. Eine unformatierte Tabelle "Quelle" und eine leere mit Überschriften versehene Tabelle "einlesen".
In der Tabelle "einlesen" finden sich Überschriften wieder welche auch in der Tabelle "...
19.04.2009 10:59:37
Thread-ID: 1069584
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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