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

schnelleres Einlesen von Daten aus Blatt2

Forumthread: schnelleres Einlesen von Daten aus Blatt2

schnelleres Einlesen von Daten aus Blatt2
Daten
Hallo,
ich habe eine Datei mit mehreren Datenblättern. Nun wählt ein User in Blatt1 einen Lieferanten und es soll im unteren Bereich der Tabelle (ab Zeile 50, da oben noch weitere Felder und Funktionen liegen) einen Auszug aller Daten zu dem Lieferanten dargestellt werden.
Dazu lass ich eine For i = 1 to "Ende des Datenblattes" - Schleife laufen mit der Abfrage:
If Worksheets("Blatt2").Cells(i, 2).value = Lieferant then
Worksheets("Blatt1").cells(a, 3).value = Worksheets("Blatt2").Cells(i, 4).value
usw.
end if
next i
Leider brauch Excel mit dieser Methode irgendwie ziemlich lang (ca .40'000 Zeilen in Blatt2).
Gibt es eine schnellere Möglichkeit die Daten aus einem anderen Blatt zu übertragen ?
Gruß und Danke
Kay
Anzeige
AW: schnelleres Einlesen von Daten aus Blatt2
27.02.2011 17:16:50
Daten
Hallo Kay,
benutze FIND()

AW: Application.Match oder Find o.T
27.02.2011 17:17:28
Gerd
Gruß Gerd
AW: schnelleres Einlesen von Daten aus Blatt2
27.02.2011 17:32:46
Daten
Hallo,
das Prob ist wahrscheinlich eher das Schreiben in Blatt1.
Lies Blatt2 erst in ein Array ein und durchsuche dieses per Schleife. Sammele deine Daten in einem anderen Array. Schreib das dann komplett in Blatt1.
Gruß
Rudi
Anzeige
AW: Habe ein Array - aber komme nicht weiter...
27.02.2011 20:20:04
kle
Hallo Rudi,
vielen Dank. Ich bin aber leider noch nicht so sicher im Umgang mit Arrays. Ich habe nun mein Array erstellt (s.u.) und wie kann ich es jetzt effektiv durchsuchen? und die Zeilen auswählen, welche in das Datenblatt 1 übertragen werden sollen - und wie geht das dann? (Die Spalten habe ich als ' Info ergänzt)
Sub Erstelle_Array()
Application.ScreenUpdating = False
Dim pArray()
Dim i, e, AnzSätze As Integer
Dim sText As String
sText = ComboBox1.Text ' Suchtext
Sheets("Daten").Activate
AnzSätze = ActiveSheet.UsedRange.Rows.Count
ReDim pArray(1 To AnzSätze, 1 To 9)
i = 1
e = 1
For i = 1 To AnzSätze Step 1
pArray(i, 1) = Sheets("Daten").Cells(e, 3).Value ' Muss in Spalte 4
pArray(i, 2) = Sheets("Daten").Cells(e, 7).Value ' Muss in Spalte 10
pArray(i, 3) = Sheets("Daten").Cells(e, 4).Value ' muss in Spalte 13
pArray(i, 4) = Sheets("Daten").Cells(e, 6).Value ' Muss in Spalte 16
pArray(i, 5) = Sheets("Daten").Cells(e, 10).Value ' muss in Spalte 19
pArray(i, 6) = Sheets("Daten").Cells(e, 8).Value ' Muss in Spalte 29
pArray(i, 7) = Sheets("Daten").Cells(e, 9).Value ' Muss in Spalte 32
pArray(i, 8) = Sheets("Daten").Cells(e, 13).Value ' Muss in Spalte 35
pArray(i, 9) = Sheets("Daten").Cells(e, 14).Value ' Muss in Spalte 41
Debug.Print i & ": " & pArray(i, 1) & "_" & pArray(i, 2) & "_" & pArray(i, 4)
e = e + 1
Next i
Application.ScreenUpdating = True
End Sub
Gruß und Danke!
Kay
Anzeige
AW: Habe ein Array - aber komme nicht weiter...
27.02.2011 22:07:15
Rudi
Hallo,
das ist viel zu kompliziert.
Du kannst einen kompletten Datenbereich in ein Array einlesen und dann das durchsuchen. Geht schneller als in der Tabelle.
Schau dir dasmal an: 
Sub xxx()
Dim arrTmp, i As Long, arrDaten(), sText As String, n As Long
arrTmp = Sheets("Daten").UsedRange  'Daten in Array
sText = ComboBox1.Text ' Suchtext, wird in Daten!A:A gesucht
ReDim arrDaten(1 To Application.CountIf(Sheets("Daten").Columns(1), sText), 1 To 9)
For i = 2 To UBound(arrTmp)
If arrTmp(i, 1) = sText Then
n = n + 1
arrDaten(n, 1) = arrTmp(i, 3)
arrDaten(n, 2) = arrTmp(i, 7)
arrDaten(n, 3) = arrTmp(i, 4)
'etc
End If
Next i
'Daten in Blatt2 ab Zeile 50 ausgeben
Sheets("Blatt2").Cells(50, 1).Resize(UBound(arrDaten), UBound(arrDaten, 1)) = arrDaten
End Sub

Ich kenn ja deine Mappe nicht.
Gruß
Rudi
Anzeige
AW: Habe ein Array - aber komme nicht weiter...
27.02.2011 22:37:53
kle
Danke für Deine Antwort, werde es ausprobieren und anpassen...wenn ich nicht weiterkomme, poste ich wieder hier...
Gruß
Kay

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
Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
21.08.2008 22:08:00
Thread-ID: 1003658
3 Beiträge
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
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
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
Anzeige
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
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
Anzeige
Wert aus Tabellenblättern in ein anderes Blatt übe
Heiderer

Hallo!
Folgende Ausgangssituation: Ich habe ein Excel-Sheet mit 4 Tabellenblättern. In Tabelle1 stehen all meine gesamten Produkte. In Tablle 2 – 4 stehen jeweils einzelne Produkte. Nun möchte ich, dass wenn ich einen Wert in der Tabelle 2 – 4 schreibe, dieser mir automatisch in die Tabelle...
11.09.2008 06:58:00
Thread-ID: 1008960
6 Beiträge
Werte aus anderem Blatt für ComboBox auslesen
mtremer

Hallo Excel-Freunde,
ich glaub ich werde verrückt.
Meine ComboBox füllt sich nicht mehr. Ich versuche den Code so zu ändern, dass die Quelle für die ComboBox wo anders stehen kann. Im folgenden Code müssen die Werte in der Spalte A der Tabelle1 stehen.
Private Sub Worksheet_Change...
17.09.2008 13:17:34
Thread-ID: 1010349
11 Beiträge
Anzeige
Zelladresse in anderer Tabelle finden
Frank

Hallo Spezi's
zu folgendem Problem hab ich im Archiv nix passendes gefunden. Vielleicht kann ja jemand helfen.
In Tabelle1 finde ich per Makro die erste leere Zelle in Spalte C. Die Spalte C kann unterschiedlich gefüllt sein, darum kann die erste leere Zelle unterschiedliche Adressen ha...
11.11.2008 10:47:00
Thread-ID: 1023458
5 Beiträge
Zahlenfolge suchen und in neue Tabelle kopieren
Günter

Hallo,
ich habe da ein kleines Problem, vielleicht kann mir hier geholfen werden.
In einer Tabelle stehen in der ersten Spalte (A) die fld. Nr. 1 bis 10 und in der Spalte (B) dazu gehörige Zahlenreihen, in der weiteren Spalte (D) fld. Nr. 11 bis 20 und in Spalte (E) wieder die dazu gehö...
04.12.2008 00:39:00
Thread-ID: 1030003
4 Beiträge
Zelle suchen + umliegenden Bereich in neue Tabelle
Schulze

Guten Tag zusammen,
ich bräuchte ein Makro, welches mir nach einem bestimmten Suchwort jede Zelle ausliest und diesen Inhalt mit einem darüber und darunter liegenden Bereich in die Tabelle2 untereinander kopiert.
Das Suchwort kommt natürlich in der Tabelle 1 Bereich A1:A65536 mehrmals v...
17.02.2009 15:51:00
Thread-ID: 1051532
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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