Das Archiv des Excel-Forums
bestimmte Zellwerte einlesen
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
Excel-Beispiele zum Thema " bestimmte Zellwerte einlesen"
| Befindet sich die aktive Zelle in einem bestimmten Bereich? |
 |
Werte eins bestimmten Monats summieren |
|
| Werte 1 und 0 in einem bestimmten Verhältnis zufällig anordnen |
|
Alle Links zu einer bestimmten Arbeitsmappe löschen |
|
| Anzahl eines bestimmten Wochentages im Monat |
|
Alle Dateien ab einem bestimmten Datum listen |
|
| Daten eines bestimmten Jahres filtern |
|
Word mit bestimmtem Dokument starten |
|
| Bestimmte Anzahl von Zeichen zulassen |
|
Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen |
|
| Zeile löschen, wenn ein bestimmter Wert vorkommt |
|
xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen |
|
| Nur Zeilen mit bestimmtem Inhalt in HTML-Datei konvertieren |
|
Kommentarfenster in bestimmter Größe erstellen |
|
| Wert einer bestimmten Zelle merken |
|
Werte aus UserForm-TextBox in bestimmten Formate übertragen |
|
| Feststellen, ob eine bestimmte Zelle markiert ist |
|
Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln |
|
| Zeichenfolgen ändern, wenn ein sie einen bestimmten Text enthalten |
|
Werte eines bestimmten Wochentages und eines Zeitbereiches addieren |
|
| Bestimmte Zeichen in einer UserForm-TextBox markieren |
|
Bei Aktivierung einer bestimmten Tabelle in Vollbildmodus schalten |
|
| Cursor in bestimmtem Zellbereich in Eieruhr verwandeln |
|
Anzahl eines Namens in einer bestimmten Schriftfarbe ermitteln |
|
| Anzahl der Einträge zu einer bestimmten Kalenderwoche |
|
Hintergrundfarbe einer Zeile, wenn bestimmter Wert in 1 Zelle |
|
| Errechnung der Maximaltemperatur an bestimmtem Datum |
|
Datenmaske mit einem bestimmten Datensatz aufrufen |
|
| Nur Zeilen mit bestimmtem Inhalt kopieren |
|
Aus Liste Anzahl der Januartage eines bestimmten Jahres listen |
|
| Einem Datum eine bestimmte Anzahl von Jahren hinzufügen |
|
Letzte Zeile mit einem bestimmten Anfangsbuchstaben markieren |
|
| Seitenumbruch nach Zeilen mit bestimmtem Inhalt einfügen |
|
Bestimmte Wochentage ohne Feiertage listen |
|
| Dateien mit bestimmtem Inhalt suchen |
|
Summe einzelner Zellwerte ermitteln |
|
| Von der Fundstelle eines Zellwertes abhängige Daten eintragen |
|
Zellwerte über SpinButton und ScrollBar hochzählen |
|
| Wahrheitsprüfung einer mit Zellwerten zusammengestzten Formel |
|
Pfeilfarbe- und Bewegung abhängig von Zellwerten |
|
| Bei Eintrag Datum aus Zellwerten zusammenstellen |
|
Einfügen von Zeilen gem. Zellwerten |
|
| Bei Blattwechsel anlegen einer Symbolleiste mit Zellwerten |
|
Einlesen von Blattnamen und Zellwerten |
|
| Aus verschiedenen Zellwerten zusammengesetzte Webadresse aufrufen |
|
Zellwerte UserForm-TextBoxwerte hinzuaddieren |
|
| Hintergrundfarbe in Abhängigkeit des Zellwertes |
|
Vergleich von Zellwerten mit unterschiedlichen Methoden |
|
| Shapes in Abhängigkeit von Zellwerten färben |
|
Bei Hyperlink-Klick Mitnahme des Zellwertes |
|
| Tabellenblattnamen in ein Listenfeld einlesen |
|
Gefilterte Daten in eine ListBox einlesen |
|
| Einlesen von Zellinhalten in Variablen |
|
1000 Arbeitsblätter aus 1000 Arbeitsmappen einlesen |
|
| Tabellenblattnamen in eine ListBox einlesen |
|
Text aus UserForm-Textbox in Variable einlesen |
|
| Blätter in ComboBox-Feld einlesen und auswählen |
|
Dateinamen in Tabelle einlesen |
|
| Namen einer Arbeitsmappe einlesen |
|
Matrix in UserForm-ListBox einlesen |
|
| Excel-Zellinhalte in Worddokument einlesen um per Email versenden |
|
UserForm-TextBox-Werte über ScrollBar einlesen |
|
| Adresstabelle in UserForm einlesen und in Adressfeld ausgeben |
|
Blattnamen bedingt in ListBox einlesen und Blätter auswählen |
|
| Einlesen von Spaltenköpfen in UserForm-ListBox |
|
Einlesen des Outlook-Adressbuches in eine UserForm-ListBox |
|
| Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen |
|
Werte in UserForm-ComboBox einlesen und ausgeben |
|
| Dateinamen in TabStrip-Elemente einlesen |
|
Mehrspaltige UserForm-ListBox füllen und aktuellen Wert einlesen |
|
| XL-Dateien aus Haupt- und Unterverzeichnissen einlesen |
|
Einlesen der Autokorrekturliste in eine Tabelle |
|
| Einlesen von Arbeitsmappen in ein TreeView-Steuerelement |
|
In Array einlesen, sortieren, auslesen |
|
| Spalteninhalt in UserForm-TextBox mit ScrollBalken einlesen |
|
Aus- und Einlesen der NumLock-, CapsLock und ScrollLock-Tasten |
|
| Dateistrukturen in UserForm einlesen und Datei öffnen |
|
Dateinamen in UserForm-ComboBox einlesen und Datei öffnen |
|
| Wert in ComboBox einlesen, suchen, editieren, ausgeben |
|
Liste ohne Doppelte Werte in ComboBox einlesen |
|
| Werte ohne Doppel in UserForm einlesen und löschen |
|
Bei Blattaktivierung Einlesen der Arbeitsblätter in ListBox |
|
| Werte in Word-Dokument einlesen und dieses Drucken |
|
Textdatei mit mehr als 256 Spalten in Tabelle einlesen |
|
| Fragen aus Textdateien in UserForm-Label einlesen |
|
Outlook-Nachrichten in Excel-Tabellen einlesen |
|
| Über SpinButton in UserForm-TextBox einlesen |
|
Bei Aktivieren eines Arbeitsblattes ComboBox neu einlesen |
|
| HTML-Text einer Internetseite in eine TextBox einlesen |
|
Makros aus einem Standardmodul in ComboBox einlesen |
|
| Zellinhalte in MultiPage-TextBoxes einlesen |
|
Prozentwerte in UserForm-ComboBox einlesen |
|
| Sortieren und nur Uniques einlesen |
|
Tabelle in UserForm-Spreadsheet einlesen |
|
| Werte aus geschlossenen Arbeitsmappen einlesen |
|
Grafischen Webcounter zeilenweise einlesen |
|
| Textdateien mit einer Zeile in Tabelle einlesen |
|
Dateinamen einlesen, Texte editieren |
|
