|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.01.2008 11:24:39 |
Fusel |
|
|
|
25.01.2008 13:13:08 |
Holger |
|
|
 Aw:Aw:Aus Tabellen Zeilen nach suchkriterien kopie |
25.01.2008 13:22:51 |
Fusel |
|
|
|
25.01.2008 15:18:58 |
Holger |
|
|
Von:
Fusel |
Datum:
25.01.2008 13:22:51 |
Views:
915 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aus Tabellen Zeilen nach suchkriterien kopie |
Hallo Holger!
Echt nett das du mir helfen willst.
so wie du es geschrieben hast geht es glaub auch nicht.
Ich ünbergebe der Funktion Qell Tabelle und Zieltabelle.
Bei jedem aufruf der Funktion tu ich die aktive zeile in der Quelltabell kopieren und in eine neue tabelle speichern
Holger schrieb am 25.01.2008 13:13:08:
Hallo Fusel,
du siehst, wie wichtig es ist, sich klar auszudrücken. Die Absicht, dass die Zieltabelle nicht geöffnet werden soll, war bisher nicht erkennbar. Folgendes Makro sollte dein Problem lösen, wobei jeweils die Zeile der aktiven Tabelle kopiert wird, in der sich die Markierung befindet.
Public Sub Zwischenablage()
k = 1
Set SheetX = Worksheets("Deine Zieltabelle")
Zeile = ActiveCell.Row
ActiveSheet.Rows(Zeile).Copy
While SheetX.Cells(k, 2) <> ""
k = k + 1
Wend
SheetX.Range(SheetX.Cells(k, 1), SheetX.Cells(k, 256)).PasteSpecial
End Sub
Falls du mehrere Zieltabellen hast, die du in Abhängigkeit von Kriterien ansteuerst, könntest du das Argument in Set SheetX = Worksheets("Deine Zieltabelle") auf Grund des erfüllten Kriteriums festlegen, z.B. mit Select Case o.ä. Um dir hierfür einen konkreten Vorschlag zu machen, müsste ich die Kriterien kennen und wissen, wo sie stehen. Aber ich glaube, dass die ergänzung einfach ist.
Viel Erfolg
Holger
Fusel schrieb am 25.01.2008 11:24:39:
Ich immer noch ein Problrm mit tabellen.
Ich gehe verschiedene Tabellen durch und kopiere einzel die Zeilen die zu meinem Kriterium passen.
Was mich stört ist dass die Tabellen wo ich rein kopier immer zur laufzeit eingeblendet werden.
Public Sub Zwischenablage(sheet As Worksheet, SheetX As Worksheet)
sheet.Rows(Zeile).Copy
While SheetX.Cells(k, 2) <> ""
k = k + 1
Wend
SheetX.Rows(k).PasteSpecial
End Sub
so sieht meine Funktion aus.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.01.2008 11:24:39 |
Fusel |
|
|
|
25.01.2008 13:13:08 |
Holger |
|
|
Aw:Aw:Aus Tabellen Zeilen nach suchkriterien kopie |
25.01.2008 13:22:51 |
Fusel |
|
|
|
25.01.2008 15:18:58 |
Holger |
|
|