| | | 3D-Druck: 7 Gründe für den Einsatz in der Medizin, ein Fachartikel
|
Autor
|
Thema: Kopieren in gefilterte Zeilen (1511 mal gelesen)
|
HOC Ehrenmitglied
Beiträge: 1884 Registriert: 14.06.2004 5.70 Prof P8 2.9
|
erstellt am: 24. Aug. 2006 14:07 <-- editieren / zitieren --> Unities abgeben:
Hallo Die Quelldaten (1.Spalte in der 1.Mappe) sollen über die Zwischenablage kopiert werden in die 2.Mappe (diese ist jedoch gefiltert). z.B: zelle1 -> Zelle 13 zelle2 -> Zelle 42 zelle3 -> Zelle 71 ... Ist dies in einem Rutsch möglich oder muss ich Zelle für Zelle einzeln mit der Maus kopieren? ------------------ Grüße HOC Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
runkelruebe Moderator Straßen- / Tiefbau
Beiträge: 8086 Registriert: 09.03.2006 MS-Office 365 ProPlus x86 WIN7(x64)
|
erstellt am: 24. Aug. 2006 22:47 <-- editieren / zitieren --> Unities abgeben: Nur für HOC
Hallo HOC, ich kann's aber nur mit Makro: Code:
Option Explicit Public Sub InGefiltertenBereichEinfügen() Dim t As Byte, cell As Range, Quelle, Ziel t = 1 Tabelle1.Activate 'QuellTabelle muß aktiviert sein Quelle = Application.InputBox(prompt:="Quelle angeben:", Type:=8) '<= unelegante Benutzereingabe Eingabe range-schreibweise: A:A 'Quelle = tabelle1.range("A1:A10") 'starre Variante Tabelle2.Activate Set Ziel = Application.InputBox(prompt:="Ziel angeben:", Type:=8) 'Set Ziel = Tabelle2.Range("A:A") For Each cell In Ziel If cell.RowHeight <> 0 Then 'wenn nicht ausgeblendet cell.Value = Quelle(t, 1) 'ersten Eintrag aus Quelle einfügen t = t + 1 'nächsten Quelleintrag If t = UBound(Quelle, 1) + 1 Then Exit Sub 'Wenn letzter Eintrag aus Quelle durch End If Next cell End Sub
Kann mir einer sagen , wie ich eine Benutzeingabe mit Maus da rein bekomme? Also die Quelle und das Ziel "ganz normal" markieren lassen durch Benutzereingabe? Gruß, Nicole edit: Kleinkram... ------------------ Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...
[Diese Nachricht wurde von runkelruebe am 28. Aug. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
HOC Ehrenmitglied
Beiträge: 1884 Registriert: 14.06.2004
|
erstellt am: 25. Aug. 2006 14:50 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|