Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
06.02.2017 10:33:56 |
JimmyKnoeppkes |
|
|
|
06.02.2017 10:49:34 |
Crazy Tom |
|
|
|
06.02.2017 11:34:16 |
Gast94457 |
|
|
Wert in Zeile finden und bestimmten Bereich der Spalte kopieren und in Targetbook eintrag |
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:
Crazy Tom |
Datum:
06.02.2017 11:54:35 |
Views:
704 |
Rating:
|
Antwort:
|
Thema:
Wert in Zeile finden und bestimmten Bereich der Spalte kopieren und in Targetbook eintrag |
Hallo
schau mal auf die Kommentare im Code
Sub Spalten_filtern_XYZ()
Dim wkbOrig As Workbook
Dim wkbTarg As Workbook
Dim Rng As Range
Dim loDeinWert11 As String
Dim lngLetzte As Long
Set wkbOrig = Workbooks.Open("PFAD")
Set wkbTarg = ThisWorkbook
loDeinWert11 = "gesuchterWert"
With wkbOrig.Sheets("REITER3")
'' hier wird dein Wert gesucht
Set Rng = .Range("A7:ZZ7").Find(loDeinWert11)
'' wenn der Wert gefunden wird dann wird die Zelladresse _
in der Variablen Rng gespeichert
If Not Rng Is Nothing Then
'' in der Fundspalte wird die letzte Zeile ermittelt
lngLetzte = .Cells(.Rows.Count, Rng.Column)
'' wenn alle Inhalte kopiert werden sollen braucht man kein _
PasteSpecial sondern man kann das als Einzeiler schreiben
.Cells(6, Rng.Column).Resize(lngLetzte, 1).Copy wkbTarg.Sheets("REITER4").Range("A1")
'' oder du lässt es so wie es ist... ist ja nicht falsch
' wkbTarg.Sheets("REITER4").Range("A1").PasteSpecial Paste:=xlPasteAll
Else
MsgBox "Wert " & loDeinWert11 & " nicht gefunden!"
End If
End With
End Sub
MfG Tom
|
- 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
|
|
06.02.2017 10:33:56 |
JimmyKnoeppkes |
|
|
|
06.02.2017 10:49:34 |
Crazy Tom |
|
|
|
06.02.2017 11:34:16 |
Gast94457 |
|
|
Wert in Zeile finden und bestimmten Bereich der Spalte kopieren und in Targetbook eintrag |
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 |
|
|