Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1308to1312
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
1308to1312
1308to1312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten auslesen und einlesen mit VBA

Daten auslesen und einlesen mit VBA
09.04.2013 20:31:17
Daniel
Guten Abend,
aus einem Anwenderprogramm exportiere ich nach Auswertungslauf eine csv-Datei und speichere sie als xlsx-Datei. Die Datei kann mehrere hundert Datensätze enthalten.
Hieraus will ich per VBA ausgewählte Daten auslesen und in eine Berichtsdatei einlesen.
Dazu verwende ich folgenden Code:
Sub WerteFinden()
Application.ScreenUpdating=False
Set wb2=Workbooks.Open("C:\Berichte\AP.xlsx")
Set ws1=wb1.Sheets("Tabelle1")
Set ws2=wb2.Sheets("ABLstEin")
For i= "" & a & "" To "" & b & ""
Such = ws1.Range("A" & i).Value
Dim rngBereich As Range
Dim rngFund As Range
Set rngBereich = ws2.Range("D:D")
Set rngFund = rngBereich.Find(what:=Such, LookIn:=xlValues, LookAt:=xlWhole)
On Error Resume Next
rngFund.Activate
ActiveCell.Offset(0, 11).Select
ws2.Range("AO" & i) = Selection.Value
rngFund.Activate
If ActiveCell.Offset(0, 15).Value="H" Then  '  "H" steht für eine Haben-Buchung
ActiveCell.Offset(0, 14).Select
ws2.Range("AP" & i)=Selection.Value * -1
Else
ActiveCell.Offset(0, 14).Select
ws2.Range("AP" & i)=Selection.Value
End If
ws1.Range("C" & i)=ws2.Range("AO" & i).Value
ws1.Range("D" & i)=ws2.Range("AP" & i).Value
Next i
MsgBox ("Auswertung ist fertig!")
wb2.Save
wb2.Close
Application.ScreenUpdating=True
End Sub
Der Code funktioniert. Allerdings sehe ich mich maximal als fortgeschrittener Anfänger in VBA und suche nach einer Code-Verbesserung, mindestens der Zeilen zwischen den Markierungen.
Kann jemand helfen?
Grüße
Daniel B.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten auslesen und einlesen mit VBA
10.04.2013 09:18:22
fcs
Hallo Daniel,
hier mein allerdings ungetesteter Verbesserungsvorschlag.
Gruß
Franz 
Sub WerteFinden()
Application.ScreenUpdating = False
Dim rngBereich As Range
Dim rngFund As Range
Set wb2 = Workbooks.Open("C:\Berichte\AP.xlsx")
Set ws1 = wb1.Sheets("Tabelle1")
Set ws2 = wb2.Sheets("ABLstEin")
For i = "" & a & "" To "" & b & ""  'wo kommwn die Werte für a und b her ? Start/Endwert _
der Schleife sollten ganze Zahlen sein - keine Textkonstruktion!
'    For i = a To b  'sollte es auch tun
Such = ws1.Range("A" & i).Value
Set rngBereich = ws2.Range("D:D")
Set rngFund = rngBereich.Find(what:=Such, LookIn:=xlValues, LookAt:=xlWhole)
On Error Resume Next
If rngFund Is Nothing Then
'do nothing
Else
ws2.Range("AO" & i) = rngFund.Offset(0, 11).Value
rngFund.Activate 'Diese Zeile ist evtl auch noch überflüssig
If rngFund.Offset(0, 15).Value = "H" Then '  "H" steht für eine Haben-Buchung
ws2.Range("AP" & i) = rngFund.Offset(0, 14).Value * -1
Else
ws2.Range("AP" & i) = rngFund.Offset(0, 14).Value
End If
ws1.Range("C" & i) = ws2.Range("AO" & i).Value
ws1.Range("D" & i) = ws2.Range("AP" & i).Value
End If
Next i
MsgBox ("Auswertung ist fertig!")
wb2.Save
wb2.Close
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Daten auslesen und einlesen mit VBA
10.04.2013 19:28:09
Daniel
Hallo Franz,
danke für Deinen Vorschlag. Leider war in meinem Beitrag nicht der gesamte Code zu sehen, obwohl vollständig eingegeben.
Deshalb nachfolgend noch mal alles inkl. Deiner Vorschläge.
If rngFund Is Nothing Then
'do nothing
For i = "" & a usw musste ich lassen, wurde anders nicht akzeptiert.
habe ich weg gelassen, führt bei mir zum Stopp der Prozedur. Ansonsten läuft die Prozedur wie meine eigene, ohne bemerkenswerte Veränderungen. Dann soll es so gut sein.
Hier nun der Code:
Sub WerteFinden()
Application.ScreenUpdating=False
Dim a As Long
Dim b As Long
a=8
b=Cells(Rows.Count, 1).End(xlUp).Row-1
Dim Such As Variant
Dim i As Integer
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set wb1=ThisWorkbook
Dim rngBereich As Range
Dim rngFund As Range
Set wb2=Workbooks.Open("C:\Berichte\AP.xlsx")
Set ws1=wb1.Sheets("Tabelle1")
Set ws2=wb2.Sheets("ABLstEin")
For i= "" & a & "" To "" & b & ""
Such = ws1.Range("A" & i).Value
Set rngBereich = ws2.Range("D:D")
Set rngFund = rngBereich.Find(what:=Such, LookIn:=xlValues, LookAt:=xlWhole)
On Error Resume Next
ws2.Range("AO" & i)=rngFund.Offset(0, 11).Value
rngFund.Activate
If rngFund.Offset(0, 15).Value="H" Then  '  "H" steht für eine Haben-Buchung
ws2.Range("AP" & i)=rngFund.Offset(0, 14).Value * -1 * -1
Else
ws2.Range("AP" & i)=rngFund.Offset(0, 14).Value
End If
ws1.Range("C" & i)=ws2.Range("AO" & i).Value
ws1.Range("D" & i)=ws2.Range("AP" & i).Value
Next i
MsgBox ("Auswertung ist fertig!")
wb2.Save
wb2.Close
Application.ScreenUpdating=True
End Sub

Anzeige

309 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