Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Skripte(PHP,ASP,Perl...)
Skripte(PHP,ASP,Perl...)
Fragevon morpheus__85 vom 02.07.2019, 09:28 Options
markierte Zeilen auslesen
Hallo alle miteinander,
hätt da mal eine Frage...
folgendes beispiel
A B C D
1 x test test test
2 test2 test2 test2
3 test3 test3 test3
4 x test4 test4 test4
nun möchte ich, dass mir in einer anderen Tabelle, z.b. Tabelle 2, wenn das Beispiel oben in Tabelle1 steht, die Zeilen, welche mit einem x gekennzeichnet werden ausgegeben werden.
hoffe ihr knönt mir da helfen
gruß
morpheus
hätt da mal eine Frage...
folgendes beispiel
A B C D
1 x test test test
2 test2 test2 test2
3 test3 test3 test3
4 x test4 test4 test4
nun möchte ich, dass mir in einer anderen Tabelle, z.b. Tabelle 2, wenn das Beispiel oben in Tabelle1 steht, die Zeilen, welche mit einem x gekennzeichnet werden ausgegeben werden.
hoffe ihr knönt mir da helfen
gruß
morpheus
Antwort 1 von Handybike vom 04.07.2019, 08:58 Options
Hi Morpheus,
versuch mal das hier. Hoffe das ist das was du dir vorgestellt hast. Wenn nicht melde dich nochmal.
Gruß Thomas
Sub test()
Dim row As Integer 'Reihen Wert der Original Werte
Dim insertRow As Integer 'Reihen Wert der Ziel Tabelle
Sheets("Tabelle1").Select 'Tabellenblatt mit den Originaldaten wird geöffenet
For row = 1 To 100 '100 ist die Anzahl der Zeilen die durchsucht wird. Ewentuell anpassen
If Cells(row, 1).Value = "x" Then
Rows(row).Select
Selection.Copy
Sheets("Tabelle2").Select 'Ziel Tabellenblatt wird geöffnet
For insertRow = 1 To 100
If Cells(insertRow, 1).Value = "" Then
Cells(insertRow, 1).Select
ActiveSheet.Paste
Exit For
End If
Next insertRow
End If
Sheets("Tabelle1").Select
Next row
End Sub
versuch mal das hier. Hoffe das ist das was du dir vorgestellt hast. Wenn nicht melde dich nochmal.
Gruß Thomas
Sub test()
Dim row As Integer 'Reihen Wert der Original Werte
Dim insertRow As Integer 'Reihen Wert der Ziel Tabelle
Sheets("Tabelle1").Select 'Tabellenblatt mit den Originaldaten wird geöffenet
For row = 1 To 100 '100 ist die Anzahl der Zeilen die durchsucht wird. Ewentuell anpassen
If Cells(row, 1).Value = "x" Then
Rows(row).Select
Selection.Copy
Sheets("Tabelle2").Select 'Ziel Tabellenblatt wird geöffnet
For insertRow = 1 To 100
If Cells(insertRow, 1).Value = "" Then
Cells(insertRow, 1).Select
ActiveSheet.Paste
Exit For
End If
Next insertRow
End If
Sheets("Tabelle1").Select
Next row
End Sub
Antwort 2 von morpheus__85 vom 05.07.2019, 11:15 Options
hallo thomas
wollte dir nur schnell ein feedback geben.
vielen herzlichen dank für deine hilfe.
hast mir echt geholfen und ist genau dass, was ich suche.
gruß
morpheus
wollte dir nur schnell ein feedback geben.
vielen herzlichen dank für deine hilfe.
hast mir echt geholfen und ist genau dass, was ich suche.
gruß
morpheus
Antwort 3 von Handybike vom 05.07.2019, 11:22 Options
Hey Morpheus,
freut mich, dass es funktioniert. Entlich konnte ich auch mal helfen, nachdem ich schon sooo oft Hilfe bekommen habe.
Gruß Thomas
freut mich, dass es funktioniert. Entlich konnte ich auch mal helfen, nachdem ich schon sooo oft Hilfe bekommen habe.
Gruß Thomas
Ähnliche Themen
Makro - Zeilen einfügen mit Spaltenbegrenzung
Orcman 13.08.2007 - 31 Hits - 6 Antworten
jede 5 Zeile aus .txt Datei in Excel kopieren
MarcoP 02.11.2007 - 166 Hits - 1 Antwort
Zellen auslesen
sebal 06.11.2007 - 48 Hits - 37 Antworten
Excel hat 65.536 Zeilen
Rolando 27.11.2007 - 172 Hits - 2 Antworten
Zeilen einfügen
ala 02.04.2008 - 117 Hits - 8 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
