Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Wert in Zeile finden und bestimmten Bereich der Spalte kopieren und in Targetbook eintrag |
06.02.2017 10:33:56 |
JimmyKnoeppkes |
|
|
|
06.02.2017 10:49:34 |
Crazy Tom |
|
|
|
06.02.2017 11:34:16 |
Gast94457 |
|
|
|
06.02.2017 11:54:35 |
Crazy Tom |
|
|
|
06.02.2017 12:05:05 |
JimmyKnoeppkes |
|
|
|
06.02.2017 12:14:05 |
Crazy Tom |
|
|
|
06.02.2017 12:23:46 |
JimmyKnoeppkes |
|
|
|
06.02.2017 12:25:04 |
Gisela |
|
|
|
06.02.2017 12:30:33 |
Gast51636 |
|
|
|
06.02.2017 13:08:53 |
Crazy Tom |
|
|
|
09.02.2017 09:16:23 |
JimmyKnoeppkes |
|
|
Von:
JimmyKnoeppkes |
Datum:
06.02.2017 10:33:56 |
Views:
1131 |
Rating:
|
Antwort:
|
Thema:
Wert in Zeile finden und bestimmten Bereich der Spalte kopieren und in Targetbook eintrag |
Hallo liebes Forum,
ich habe folgende Schwierigkeit. Ich möchte in einem Workbook innerhalb eines speziellen Reiters innerhalb einer speziellen Zeile einen Wert finden. Anschließend möchte ich dann in der gefundenen Spalte ab Zeile 6 bis zum Ende der Spalte alles kopieren und in eine neue Datei auf einen speziellen Reiter in eine spezielle Zelle alles zuvor ausgewählte kopieren. Aktuell bekomme ich es nur hin, die ganze Spalte zu kopieren und einzufügen. Was muss ich machen, dass ich nur ab Zeile 6 kopiere und einfüge und nicht die ganze Spalte!?
Hier die bisherige Code:
Sub Spalten_filtern_XYZ()
Dim wkbOrig As Workbook
Dim wkbTarg As Workbook
Set wkbOrig = Workbooks.Open("PFAD")
Set wkbTarg = ThisWorkbook
Dim Rng As Range
Dim loDeinWert11 As String
loDeinWert11 = "gesuchterWert" 'gesuchter Wert11 = gesuchter Wert
Set Rng = wkbOrig.Sheets("REITER3").Range("A7:ZZ7").Find(loDeinWert11) 'in REITER3, Spalten A1 bis ZZ1
If Rng Is Nothing Then
MsgBox "Wert " & loDeinWert11 & " nicht gefunden!" 'MassageBox, falls Wert in Spalte nicht gefunden wird
Else
Rng.EntireColumn.Copy 'kopieren der ausgewählten Spalte
wkbTarg.Sheets("REITER4").Range("A1").PasteSpecial Paste:=xlPasteAll 'einfügen der kopierten Spalten in Tabelle "REITER4", Beginn bei Spalte "A" Zelle "1"
End If |
- 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
|
Wert in Zeile finden und bestimmten Bereich der Spalte kopieren und in Targetbook eintrag |
06.02.2017 10:33:56 |
JimmyKnoeppkes |
|
|
|
06.02.2017 10:49:34 |
Crazy Tom |
|
|
|
06.02.2017 11:34:16 |
Gast94457 |
|
|
|
06.02.2017 11:54:35 |
Crazy Tom |
|
|
|
06.02.2017 12:05:05 |
JimmyKnoeppkes |
|
|
|
06.02.2017 12:14:05 |
Crazy Tom |
|
|
|
06.02.2017 12:23:46 |
JimmyKnoeppkes |
|
|
|
06.02.2017 12:25:04 |
Gisela |
|
|
|
06.02.2017 12:30:33 |
Gast51636 |
|
|
|
06.02.2017 13:08:53 |
Crazy Tom |
|
|
|
09.02.2017 09:16:23 |
JimmyKnoeppkes |
|
|