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

VSB - Zeile auslesen, wenn Bedingung erfüllt

Forumthread: VSB - Zeile auslesen, wenn Bedingung erfüllt

VSB - Zeile auslesen, wenn Bedingung erfüllt
24.10.2014 14:33:36
loki
Hallo,
leider bin ich nicht sonderlich gut bewandt in Visual Basic, doch glaube ich genau dort die Lösung meines derzeitigen Problems zu finden.
Ausgangssituation:
Ich habe zwei Tabellen.
Tabelle 1 = Quelle
Tabelle 2 = Ziel
In Tabelle 1 stehen jeweils in jeder Zeile in den Spalten A bis P verschiedene Zahlen. Diese möchte ich gerne 1:1 in Tabelle 2 übertragen, sofern H 0 ist. Wenn H = 0 ist, soll automatisch die nächste Zeile übertragen werden, die ebenfalls wieder der Bedingung H 0 unterliegt.

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VSB - Zeile auslesen, wenn Bedingung erfüllt
24.10.2014 14:52:19
yummi
Hallo loki,

sub kopiereDaten
dim lQ as long
dim i as long
dim j as long
lQ = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
j = 1
for i = 1 to lQ
if Sheets("Tabelle1").Cells(i,8).value  0 then
Sheets("Tabelle1").range("A" & i & ":P" & i).copy Sheets("Tabelle1").range("A" & j & " _
:P" & j)
j = j+1
end if
next i
end sub
ungetestet sollte das liefern was du willst
Gruß
yummi

Anzeige
Variante mit dem Spezialfilter
24.10.2014 14:57:57
Tino
Hallo,
hier mal eine Variante mit dem Spezialfilter.
(Überschriften werden mit übernommen!)
Sub Beispiel()
Dim rng  As Range, rngHelp As Range
Dim QuellSh As Worksheet, ZielSh As Worksheet
Dim lngRowMax&, lngColMax&
'Tabelle Quelle, evtl. anpassen
Set QuellSh = Tabelle1
'Tabelle Ziel, evtl. anpassen
Set ZielSh = Tabelle2
'Datenbereich bestimmen
'Ab A1 (=Überschrift)
'bis letzte Zeile in Spalte H
'bis letzte Spalte in Zeile 1
With QuellSh
lngRowMax = .Cells(.Rows.Count, 8).End(xlUp).Row
lngColMax = .Cells(1, .Columns.Count).End(xlToLeft).Column
Set rng = .Range("A1", .Cells(lngRowMax, lngColMax))
'Hilfszelle neben Datenbereich
Set rngHelp = .Cells(1, lngColMax + 1).Resize(2, 1)
End With
'Spezialfilter mit Formel in Hilfsspalte
With rng
'Formel in zweite Zelle HilfsBereich "=$H80"
rngHelp.Cells(2, 1).FormulaR1C1 = "=RC80"
'Spezialfilter anwenden
.AdvancedFilter xlFilterCopy, rngHelp, ZielSh.Range("A1")
End With
'Hilfszelle löschen
rngHelp.Clear
End Sub
Gruß Tino

Anzeige
AW: Variante mit dem Spezialfilter
24.10.2014 15:15:47
loki
Hallo Tino,
vielen dank vorab schon mal für deine Hilfe.
Leider erhalte ich einen Laufzeitfehler '1004': Fehlender oder ungültiger Feldname im Zielbereich.
Es scheint hier laut Debugger an folgender Zeile zu liegen:
.AdvancedFilter xlFilterCopy, rngHelp, ZielSh.Range("A1")

Anzeige
AW: Variante mit dem Spezialfilter
24.10.2014 15:33:44
Tino
Hallo,
dann sind die Überschriften im Ziel anders als die in der Quelle!
Gruß Tino

AW: Variante mit dem Spezialfilter
24.10.2014 15:57:36
loki
Ich hab die Überschriften gerade mit Copy & Paste von der Quelle zum Ziel kopiert und ich erhalte weiterhin den Fehler. Sehr seltsam...

AW: Variante mit dem Spezialfilter
24.10.2014 16:11:05
Tino
Hallo,
ok. dann machen wir es mal so, der Code schreibt die Überschriften.
Sub Beispiel()
Dim rng  As Range, rngHelp As Range
Dim QuellSh As Worksheet, ZielSh As Worksheet
Dim lngRowMax&, lngColMax&
'Tabelle Quelle, evtl. anpassen
Set QuellSh = Tabelle1
'Tabelle Ziel, evtl. anpassen
Set ZielSh = Tabelle2
'Datenbereich bestimmen
'Ab A1 (=Überschrift)
'bis letzte Zeile in Spalte H
'bis letzte Spalte in Zeile 1
With QuellSh
lngRowMax = .Cells(.Rows.Count, 8).End(xlUp).Row
lngColMax = .Cells(1, .Columns.Count).End(xlToLeft).Column
Set rng = .Range("A1", .Cells(lngRowMax, lngColMax))
'Hilfszelle neben Datenbereich
Set rngHelp = .Cells(1, lngColMax + 1).Resize(2, 1)
End With
'Spezialfilter mit Formel in Hilfsspalte
With rng
'Formel in zweite Zelle HilfsBereich "=$H80"
rngHelp.Cells(2, 1).FormulaR1C1 = "=RC80"
'Spezialfilter anwenden
ZielSh.Range("A1").Resize(, rng.Columns.Count).Value = rng.Rows(1).Value
.AdvancedFilter xlFilterCopy, rngHelp, ZielSh.Range("A1").Resize(, rng.Columns.Count)
End With
'Hilfszelle löschen
rngHelp.Clear
End Sub

Gruß Tino

Anzeige
AW: Variante mit dem Spezialfilter
24.10.2014 16:58:04
loki
Funktioniert jetzt! Vielen Dank :)

Forumthreads zu verwandten Themen

VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Zeilen kopieren wenn Bedingung erfüllt
Jupp

Hallo zusammen, ich Grüße euch,
das Forum und die Beiträge finde ich super
Heute wende ich mich als VBA-Neuling mit einem Problem an euch und hoffe, dass mir geholfen wird.
Ich habe eine Tabelle, die doch bereits eine erhebliche Zeilen und Spaltenanzahl erreicht hat.
Nun möchte...
18.03.2009 19:49:40
Thread-ID: 1061595
3 Beiträge
Werte aus Zellen übernehmen
sanktflorian

Hallo,
Ich möchte gerne Werte aus zellen die auf dem Blatt Ulm I untereinander stehen im Blatt Einzelergebnisse
neben einander stehen lassen.
ich muß jede einzel Zelle anklicken für die Übernahme von Ulm I in Einzelergebnisse
='SSV Ulm I'!T10 ='SSV Ulm I'!T11 ='SSV Ulm I'!T1...
30.08.2009 12:42:27
Thread-ID: 1099404
13 Beiträge
Mit Matrixformeln berechnete Werte übernehmen
Karin

Hallo Excelgemeinde,
ich habe eine Lagerdatei mit circa 50 Tabellenblättern. Auf das erste Tabellenblatt sollen in Spalte H immer die letzten Werte der anderen Tabellenblätter aus Spalte J übernommen werden. Die Werte in den einzelnen Tabellenblättern ermittle ich mit Matrixformeln. Meine V...
21.12.2009 11:51:41
Thread-ID: 1125295
5 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:20:47
Thread-ID: 1165045
2 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:09:45
Thread-ID: 1165046
3 Beiträge
Nur Werte übernehmen
gisela

Hallo,
wie kann ich folgende Anweisung ändern, damit nur die Werte übertragen werden?
Sub autoautoC() Application.ScreenUpdating = False Dim strBreich As String Dim rngZelle As Range Sheets("Mai_C").Select strBreich = "$A$1:" & ActiveSheet.Cells(Rows.Count, "A"). _ End(xlUp).Address...
10.09.2010 09:54:44
Thread-ID: 1176788
10 Beiträge
Nur Werte aus Listbox übernehmen
Udo

Guten Tag @ all!
Ich möchte erreichen, dass von einer Userform nur ein in einer Listbox aufgeführter Wert in eine Tabelle übernommen werden kann.
Eine Veränderung soll nicht möglich sein. Die Listbox und die Übernahme ist kein Problem, aber es ist leider immer möglich einen anderen Wer...
21.11.2010 14:11:56
Thread-ID: 1188043
3 Beiträge
Wert aus letzter Zelle einer Spalte übernehmen
A.

Moin zusammen !
ich habe eine Arbeitsmappe mit mehreren Arbeitsblättern. In die ersten Blätter werden Werte aus immer wieder ändernden CSV Dateien eingelesen. Die Werte in den CSV sollen per Diagramm analysiert werden. Die Übernahme der Werte und das Diagramm funktionieren. Bloss werden die...
09.12.2010 10:14:19
Thread-ID: 1190753
4 Beiträge
Automatisches kopieren wenn Bedingung erfüllt
Christian

Hallo,
das Forum ist mir empfohlen worden. Also erstmal "Hallo" und vielen Dank für Antworten im Voraus.
Ich möchte meine Umsatztabelle anpassen. Im ersten Tabellenblatt sind Daten enthalten wie Auftragsnummer, Monat, Kundenname, Gerät, Vk-Preis, Land...
Nun möchte ich für jedes Ger...
23.12.2010 13:07:26
Thread-ID: 1192626
2 Beiträge
Anzeige
wenn Bedingung erfüllt, String in Grossbuchst umw.
Peter

Guten Abend
Ich möchte mit
Privat Sub Workbook_SheetChange(ByVal Sh as Object, ByVal Target as Range)
Eingaben prüfen und wenn gewisse Bedingungen erfüllt sind, diese in Grossbuchstaben umwandeln (UCASE).
Bedingungen:
Sh: Tabellenname darf nur aus Zahlen bestehen, z.b. "0000...
27.01.2011 20:43:03
Thread-ID: 1197702
11 Beiträge
Anzeige
Auslesen von Werten wenn Bedingungen erfüllt sind
Werten

Hallo Leute,
ich möchte gern in der Tabelle 3 alle Ziffern die mit 5 anfangen in einer Spalte untereinander anzeigen lassen, wenn folgende Bedingungen erfüllt sind: 1. in der Tabelle 1 (rot) muss in einer der drei Kategorien entw. eine 1 oder 2 stehen und die Ziffer muss mit 5 anfangen.
...
23.03.2011 21:23:17
Thread-ID: 1207240
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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