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

Daten aus Bereich auflisten

Forumthread: Daten aus Bereich auflisten

Daten aus Bereich auflisten
lisa
Hallo zusammen
Ich muss mich noch einmal mit einem Anliegen an Euch wenden.
Ich habe in meiner Tabelle folgendes vor.
In Spalte A steheh Artikelnummern, in Sspalte B:F Wochentage mit Datum
Habe ich also A3 Artnr. 456 trage ich in b3 (Montag) eine Liefermenge 200St ein, in c3(Dienstag) nichts, d3(Mittwoch) nichts, E3(Donnerstag) auch nichts, aber F3(Freitag) 500 St. ein.
Nun möchte ich gern eine Liste haben die wie folgt aussieht.
H3 die Artikelnummer in I3 die Menge vom Montag
In H4 die Artikelnummer in i4 die Menge vom Freitag
Es ist etwas kompliziert zu erklären, deshalb möchte ich gern ein Tabelle anhängen die sich vielleich besser erklärt. Ich hoffe es ist nicht zu aufdringlich
https://www.herber.de/bbs/user/67202.xls
Danke und lieben Gruß Lisa
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Daten aus Bereich auflisten
13.01.2010 15:44:44
lisa
Hallo Luschi
Es funktioniert!!!:-)
Ein eschöne Sache, danke dir! Ich habe bestimmt noch eine Frage zur Funktion und würde mich gern noch einmal bei dir melden. Aber ersteinmal herzlichen Dank und ich teste nun mal soweit wie ich komme.
Gruss Lisa
Anzeige
AW: Daten aus Bereich auflisten
13.01.2010 17:05:20
Luschi
Hallo Lisa,
einen Fehler habe ich schon gefunden; die folgende Zeile muß so lauten:
9 statt 1, da ja die letzte Zeile in Spalte I (das ist die 9. Spalte) ermittelt werden soll
'letzte Zeile in Spalte I
n2 = ws.Cells(ws.Rows.Count, 9).End(xlUp).Row
Gruß von Luschi
aus klein-Paris
PS: Sowas kommt vom Kopieren von Programmzeilen, ohne sie anzupassen!
Anzeige
AW: Daten aus Bereich auflisten
13.01.2010 17:16:30
Luschi
Hallo Lisa,
diese Zeile kannst Du Löschen, da sie das gleiche macht wie die nächsten Zeile:
ws.Range("I" & n3).Value = rg3.Value
Gruß von Luschi
aus klein-Paris
AW: Daten aus Bereich auflisten
14.01.2010 09:16:10
lisa
Hallo Luschi
ich möchte gern alles um zwei Spalten nach rechts verschieben.
Deinen VBA- Code habe ich ersteinmal um eine Spalte geä. aber es wird die Artikelnummer nun in Spalte B nicht mehr mitgenommen. Was habe ich falsch gemacht?
Dazu habe ich deinen VBA wie folgt geä. 
Sub MachMal_01()
Dim wb As Workbook, ws As Worksheet, _
rg1 As Range, rg2 As Range, rg3 As Range
Dim n1 As Long, n2 As Long, n3 As Long, n4 As Long, n5 As Long, _
v1, v2, v3
Set wb = ThisWorkbook
Set ws = ActiveSheet
Set rg1 = ws.Range("B4")
Set rg2 = ws.Range("J4")
'letzte Zeile in Spalte A
n1 = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row
'letzte Zeile in Spalte I
n2 = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
'Bereich I:M von Zeile 4 bis n2 leeren
ws.Range("J4:n" & n2).ClearContents
'Laufvariable für Spalten I bis M
n3 = 3
'alle Zellen von A4 bis An1 durchlaufen
For Each rg3 In ws.Range("B4:B" & n1)
If ""  rg3 Then
'Zellen in Spalte C bis G durchlaufen
For n4 = 4 To 8
If ""  ws.Cells(rg3.Row, n4) Then
n3 = n3 + 1
ws.Range("J" & n3).Value = rg3.Value
'ws.Cells(n3, "I").Value = rg3.Value
ws.Cells(n3, "J").Value = ws.Cells(rg3.Row, n4)
ws.Cells(n3, "N").Value = ws.Cells(3, n4).Value 'Zeile zum Datum
End If
Next n4
End If
Next rg3
Set rg3 = Nothing
Set rg2 = Nothing
Set rg1 = Nothing
Set ws = Nothing
Set wb = Nothing
End Sub
Du hast dir große Mühe gegeben, ersteinmal herzlichen Dank!
Vielleicht kannst du ja nocheinmal draufschauen
Lieben Gruß Lisa
Anzeige
AW: Daten aus Bereich auflisten
14.01.2010 10:21:19
welga
Hallo Lisa,
bitte schön (2 Spalten nach rechts versetzt):
Sub MachMal_01()
Dim wb As Workbook, ws As Worksheet, _
rg1 As Range, rg2 As Range, rg3 As Range
Dim n1 As Long, n2 As Long, n3 As Long, n4 As Long, n5 As Long, _
v1, v2, v3
Set wb = ThisWorkbook
Set ws = ActiveSheet
Set rg1 = ws.Range("c4")
Set rg2 = ws.Range("k4")
'letzte Zeile in Spalte c
n1 = ws.Cells(ws.Rows.Count, 3).End(xlUp).Row
'letzte Zeile in Spalte k
n2 = ws.Cells(ws.Rows.Count, 11).End(xlUp).Row
'Bereich k:o von Zeile 4 bis n2 leeren
ws.Range("k4:o" & n2).ClearContents
'Laufvariable für Spalten I bis M
n3 = 3
'alle Zellen von A4 bis An1 durchlaufen
For Each rg3 In ws.Range("c4:c" & n1)
If ""  rg3 Then
'Zellen in Spalte C bis G durchlaufen
For n4 = 5 To 9
If ""  ws.Cells(rg3.Row, n4) Then
n3 = n3 + 1
ws.Cells(n3, "k").Value = rg3.Value
ws.Cells(n3, "m").Value = ws.Cells(rg3.Row, n4)
ws.Cells(n3, "o").Value = ws.Cells(3, n4).Value
End If
Next n4
End If
Next rg3
Set rg3 = Nothing
Set rg2 = Nothing
Set rg1 = Nothing
Set ws = Nothing
Set wb = Nothing
End Sub
Dein Fehler:
n2 = ws.Cells(ws.Rows.Count, 10).End(xlUp).Row
Wie von Luschi schon gesagt: lass das weg:
ws.Range("J" & n3).Value = rg3.Value
dann noch hier ändern:
ws.Cells(n3, "J").Value = rg3.Value
ws.Cells(n3, "L").Value = ws.Cells(rg3.Row, n4)
ws.Cells(n3, "N").Value = ws.Cells(3, n4).Value
Gruß
welga
Anzeige
AW: Daten aus Bereich auflisten
14.01.2010 10:22:25
Luschi
Hallo Lisa,
hier ein neuer Versuch: https://www.herber.de/bbs/user/67215.xls
Hinweise siehe Kommentare im Vba-Code.
Gruß von Luschi
aus klein-Paris
AW: läuft super!
15.01.2010 12:42:14
lisa
Hallo und recht herzlichen Dank für die Hilfe
Das hast du (ihr) sehr gut gemacht Danke, danke!
Es klappt echt super
Gruß Lisa
Anzeige
;

Forumthreads zu verwandten Themen

Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 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
Daten aus Bereich filtern/auswerten Harte Nuss!
tekiela

Hallo,
ich habe folgende Datei hochgeladen:
Die Datei https://www.herber.de/bbs/user/55073.xls wurde aus Datenschutzgründen gelöscht
Ich muss Daten aus dem jeweiligen Monat auswerten. Geht speziell um Wochenenden und Feiertage in Schleswig-Holstein. Wieviel Tage (Sa.,So. + evtl. Fe...
31.08.2008 20:58:00
Thread-ID: 1006262
8 Beiträge
Werte aus Matrix auslesen j. mit richtiger Bsp.
trebor-robert

Hallo,
wie kann ich aus einer Matrix, die in einer separaten Arbeitsmappe (im Beispiel der Bereich Arbeitsmappe "B") liegt, den entsprechenden EUR Betrag auslesen, wenn in der Spalte "C" untereinander in den einzelnen Zeilen die Bemessungsgrösse 1 steht (in diesem Fall qm) und in den Spalt...
05.09.2008 13:33:00
Thread-ID: 1007667
5 Beiträge
Zellwerte aus markierten Tabellen übertragen
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Ich benötige nur die Ergebnisse der markierten Tabellenblätter. Diese in den markierten Tabellen...
06.09.2008 17:29:20
Thread-ID: 1007869
3 Beiträge
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
Anzeige
VBA-Werte aus Spalte in ComboBox
andreas

Hallo zusammen,
habe ein Formular da möchte ich die Daten nach den Werten in Spalte D Filtern. Dazu sollen die Daten ab Zeile 11 alphabetisch geordnet und jeder Eintrag nur einmal angezeigt in die Combobox eingelesen werden. Der ausgesuchte Wert wird dann als Criterium für die Filterfunktio...
25.09.2008 08:47:11
Thread-ID: 1012218
7 Beiträge
Werte aus matrix entnehmen ?
AndreasK

Hallo erstmal,
ich habe folgendes Problem und stelle mich mal wieder ein bisschen zu doof an, naja ich komm nicht drauf.
In Blatt1 habe ich mir ein Formular angelegt das allerdings je nach inhalt an einen unterschiedlichen Verteiler per Mail verschickt wird. Die Namen stehen im Bereic...
29.09.2008 11:53:30
Thread-ID: 1013061
3 Beiträge
Anzeige
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Werte aus Tabelle finden
Florian

Hallo und Guten Morgen,
ich habe ein kleines Problem!
Ich habe eine Tabelle (Matrix), die Vergütungsgruppen und deren Unterteilung in Stufen, enthält.
Hier ist die Datei: https://www.herber.de/bbs/user/56583.xls
Wie kann ich für die Mitarbeiter z. B. in den Zellen "D2" bis "D7"...
07.11.2008 08:56:00
Thread-ID: 1022516
2 Beiträge
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 12:04:00
Thread-ID: 1027253
5 Beiträge
doppelte werte im Array aus Tabelle (dim)
chris

Hallo VBA Profis und guten morgen,
ich habe eine frage zu einem Code wie ich diesen am besten erstelle.
Ich habe eine Tabelle mit daten in einer Spalte(untereinander)
Jetzt möchte ich diese zeile mit diesem Makro einlesen aber nur einmal vorkommende werte.
Also wenn ein Wert dop...
15.01.2009 07:43:25
Thread-ID: 1039878
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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