Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
860to864
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
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datensatzauswahl in Tabelle übernehmen

Datensatzauswahl in Tabelle übernehmen
18.04.2007 11:42:01
Josef
Hallo!
Ich habe in der Tabelle 1 ca 40000 Datensätze stehen.
Ich möchte jetzt erreichen, wenn ich z.B. in der Spalte B Zeile 10 ein "ü" setze daß dieser Datensatz in die Tabelle 2 übernommen wird, jedoch ohne die Einträge in der Spalte D Zeile 10, Spalte F Zeile 10, Spalte H Zeile 10.
Wi würde bitte hier eine VBA Lösung aussehen?
Danke
Josef

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datensatzauswahl in Tabelle übernehmen
18.04.2007 12:11:56
Peter
Hallo Josef,
dann versuche es mit dem beigefügten Makro -in ein allgemeines Modul kopieren.


Option Explicit
Public Sub Kopiere()
Dim WkSh_Q     As Worksheet
Dim WkSh_Z     As Worksheet
Dim lZeile_Q   As Long
Dim lZeile_Z   As Long
Dim iSpalte_Q  As Integer
Dim iSpalte_Z  As Integer
   Application.ScreenUpdating = False
   Set WkSh_Q = Worksheets("Tabelle1")
   Set WkSh_Z = Worksheets("Tabelle2")
   For lZeile_Q = 1 To WkSh_Q.Range("A65536").End(xlUp).Row
      If LCase(WkSh_Q.Range("B" & lZeile_Q).Value) = "ü" Then
         lZeile_Z = lZeile_Z + 1
         iSpalte_Z = 1
         For iSpalte_Q = 1 To 256
            If iSpalte_Q = 4 Or iSpalte_Q = 6 Or iSpalte_Q = 8 Then
             Else
               WkSh_Z.Cells(lZeile_Z, iSpalte_Z).Value = _
               WkSh_Q.Cells(lZeile_Q, iSpalte_Q).Value
               'iSpalte_Z = iSpalte_Z + 1
            End If
            iSpalte_Z = iSpalte_Z + 1
         Next iSpalte_Q
      End If
   Next lZeile_Q
   Application.ScreenUpdating = True
End Sub 


Gruß Peter
Anzeige
AW: Datensatzauswahl in Tabelle übernehmen
18.04.2007 12:21:00
Josef
Hallo Peter!
Danke für Deine Antwort und vor allem für Deine Mühe.
Ich habe jetzt das Makro getestet.
Der erste Datensatz wird richtig in die Tabelle 2 eingetragen.
Bei den Datensätzen 4, 7 und 10 wo ich ebenfall ein ü setzte wurden nicht in die Tabelle 2 kopiert.
Danke
Josef

AW: Datensatzauswahl in Tabelle übernehmen
18.04.2007 12:33:00
Josef
Hallo Peter!
Nach einem neuerlichen Test und längerem Warten wurde jetzt der Datensatz 1 und 2 eingetragen. Die anderen Datensätze wurden wieder nicht eingetragen. Bei der Abarbeitung von ca. 40000 Datensätzen wird das wahrschewinlich eine sehr lange Wartezeit ergeben.
Gäbe es da vielleicht die Möglichkeit einer Lösung im Worksheet Ereignis mittels VBA.
Eingabe ü - nach Verlassen oder Entertaste wird der Datensatz gleich eingetragen usw.
Josef

Anzeige
AW: Datensatzauswahl in Tabelle übernehmen
18.04.2007 13:32:54
Peter
Hallo Josef,
etwas schneller könnte es so gehen:


Option Explicit
Public Sub Kopiere()
Dim WkSh_Q     As Worksheet
Dim WkSh_Z     As Worksheet
Dim lZeile_Q   As Long
Dim lZeile_Z   As Long
Dim iSpalte_Q  As Integer
Dim iSpalte_Z  As Integer
   Application.ScreenUpdating = False
   Set WkSh_Q = Worksheets("Tabelle1")
   Set WkSh_Z = Worksheets("Tabelle2")
   For lZeile_Q = 1 To WkSh_Q.Range("A65536").End(xlUp).Row
      If LCase(WkSh_Q.Range("B" & lZeile_Q).Value) = "ü" Then
         lZeile_Z = lZeile_Z + 1
         iSpalte_Z = 1
         For iSpalte_Q = 1 To WkSh_Q.Cells(lZeile_Q, 256).End(xlToLeft).Column
            If iSpalte_Q = 4 Or iSpalte_Q = 6 Or iSpalte_Q = 8 Then
             Else
               WkSh_Z.Cells(lZeile_Z, iSpalte_Z).Value = _
               WkSh_Q.Cells(lZeile_Q, iSpalte_Q).Value
               'iSpalte_Z = iSpalte_Z + 1
            End If
            iSpalte_Z = iSpalte_Z + 1
         Next iSpalte_Q
      End If
   Next lZeile_Q
   Application.ScreenUpdating = True
End Sub 


Gruß Peter
Anzeige
AW: Datensatzauswahl in Tabelle übernehmen
18.04.2007 15:36:43
Peter
Hallo Josef,
ich habe mir eine Mappe mit 40.000 Zeilen gebaut, in der jede 100ste mit ü gekennzeichet ist
und noch ein paar zusätzliche Zeilen.
Die Spalten sind meistens bis Spalte AA gefüllt.
Wenn ich nun mein Makro laufen lasse, dauert es höchstens zwei Sekunden bis alles kopiert ist.
Ich lade meine Testmappe hier hoch. Wenn du sie aufrufst, werden in die Tabelle1 die 40.000 Datensätze
eingestellt - und meim Schließen der Mappe teilweise wieder gelöscht.
Gruß Peter
https://www.herber.de/bbs/user/41847.xls

Anzeige
AW: Datensatzauswahl in Tabelle übernehmen
19.04.2007 06:04:00
Josef
Guten Morgen Peter!
Danke für Deine Antwort.
Habe jetzt nochmals getestet. Jetzt werden die Daten in die Tabelle kopiert.
Jedoch bei einer Dateigröße von 35 MB mußte ich mindestens 5-6 Minuten warten beim rüberkopieren von 371 Datensätzen.
Aber es funktioniert.
Danke für Deine Hilfe
Josef

300 Forumthreads zu ähnlichen Themen

datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Anzeige
daten aus Arbeitsmappe einlesen
Peter

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
19.08.2008 13:25:00
Thread-ID: 1002916
3 Beiträge
Daten aus einer Zelle auf mehrere Zellen aufteilen
Gordon

Moin,
ich habe hier einer Zelle (A10) eine bis mehrere Zeichenketten, die jewiels durch ein ";" getrennt werden.
Nun soll jeweils jede Zeichenkette auf drei Zellen aufgespilltet werden:
A1 = Die ersten 10 Zeichen der 1.Kette
B1 = Die nächsten 10 Zeichen der 1.Kette
C1 = Die...
23.08.2008 22:57:00
Thread-ID: 1004183
15 Beiträge
Anzeige
Datenvergleich und danach ausgegebene Info
Merle

Guten morgen alle zusammen!
Hab mal wieder eine Frage. Kriege ständig irgendwelche Listen, die ich zusammenfassen soll.
Hier ein Beispiel meiner Liste:
https://www.herber.de/bbs/user/55376.xls
Ich hätte es gerne, dass wenn ich in der Liste in Tabelle1, nur die Bez. D127 aus dem...
15.09.2008 08:58:00
Thread-ID: 1009662
2 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
Daten aus Zellbereich in eine neue Arbeitsmappe
André

Für eine "Tägliche Auswertung" suche ich ein Makro.
Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...
26.09.2008 10:23:00
Thread-ID: 1012532
3 Beiträge
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 Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 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
2
1
2
14
3
1
4
2
5
2
5
6
4
4
2
1
1
6
1
4
4
1
1
8
2