Herbers Excel/VBA-Archiv
bestimmte Zellwerte einlesen
- bestimmte Zellwerte einlesen von M. Heyder vom 06.10.2003 15:04:22
- AW: bestimmte Zellwerte einlesen - von ChrisL am 06.10.2003 15:48:33
- AW: bestimmte Zellwerte einlesen - von Michael Heyder am 08.10.2003 13:44:42
- AW: bestimmte Zellwerte einlesen - von ChrisL am 08.10.2003 16:58:42
- AW: bestimmte Zellwerte einlesen - von M. Heyder am 08.10.2003 17:22:48
- AW: bestimmte Zellwerte einlesen - von M. Heyder am 08.10.2003 17:22:48
- AW: bestimmte Zellwerte einlesen - von ChrisL am 08.10.2003 16:58:42
- AW: bestimmte Zellwerte einlesen - von Michael Heyder am 08.10.2003 13:44:42
- AW: bestimmte Zellwerte einlesen - von ChrisL am 06.10.2003 15:48:33
 |
Betrifft: bestimmte Zellwerte einlesen
von: M. Heyder
Geschrieben am: 06.10.2003 15:04:22
Hallo Experten
ich such jetzt schon des längerem nach einer Lösung:
Ist es möglich, das von allen geöffneten excel-files eine bestimmte Zelle in eine neue Tabelle in einem neuen Arbeitsblatt eingelesen werden kann und die dann die jeweiligen werte nach der Größe sortiert?
wäre echt nett wenn mir da jemand behilflich sein könnte
Besten Dank & grüsse aus duisburg
michael h.
 |
Betrifft: AW: bestimmte Zellwerte einlesen von: ChrisL
Geschrieben am: 06.10.2003 15:48:33
Hi Michael
Option Explicit
Sub Makro()
Dim iMappe As Integer
Dim neuDatei As Workbook, WS As Worksheet
Application.ScreenUpdating = False
Set neuDatei = Workbooks.Add
Set WS = neuDatei.Worksheets(1)
For iMappe = 1 To Workbooks.Count
If Workbooks(iMappe).Name <> neuDatei.Name Then
WS.Cells(WS.Range("A65536").End(xlUp).Row + 1, 1) = _
Workbooks(iMappe).Worksheets(1).Range("A1")
End If
Next iMappe
WS.Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.ScreenUpdating = True
End Sub
Gruss
Chris
| |
Betrifft: AW: bestimmte Zellwerte einlesen von: Michael Heyder
Geschrieben am: 08.10.2003 13:44:42
Hey Chris besten Dank!
hab da noch 2 Fragen:
was bedeuted dieses WS.Range("A65536"): will sagen was A65536
und was muss ich machen wenn ich 2 zusammengehörige Zellen einlesen will:
z,B. Name : Wert
bin wirklich ne vba Null
aber habe beschlossen mich näher damit zu beschäftigen
irgendwelche literaturempfehlungen?
Danke nochmals;
war genau das was mir so vorschwebte
grüsse
michael
| |
Betrifft: AW: bestimmte Zellwerte einlesen von: ChrisL
Geschrieben am: 08.10.2003 16:58:42
Hi Michael
WS.Range("A65536").End(xlUp).Row + 1
Ermittelt lediglich die letzte freie Zeile, angefangen von unten (die max. Zeilenzahl ist 65536) nach oben.
Literatur z.B.
http://www.ti5.tu-harburg.de/manual/vba5/httoc.htm
oder
http://www.google.ch/search?q=literatur+site%3Awww.herber.de&ie=UTF-8&oe=UTF-8&hl=de&meta=
Zur eigentlichen Frage...
Mit dem Namen bin ich mir auch nicht sicher...
Workbooks(iMappe).Worksheets(1).Range("A1")
müsste dann...
Workbooks(iMappe).Worksheets(1).Range("Wert")
lauten.
Allerdings weil der Name über einen Bereich geht müsstest du die Zellen vermutlich schon direkt mit den Koordinaten ansprechen.
Gruss
Chris
| |
Betrifft: AW: bestimmte Zellwerte einlesen von: M. Heyder
Geschrieben am: 08.10.2003 17:22:48
Nochmals besten Dank!
grüsse aus duisburg
Michael
| |