Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Copy

Copy
02.03.2017 08:46:51
Georg
Liebe community:
Folgender Code kopiert in Abhängigkeit von der Eingabe:
Sub copy()
Dim i As Long
Dim Muster As String
Muster = InputBox("Dienstplanmuster eingeben", "DP")
For i = 1 To 4
If Range("A" & i).Value = Muster Then
Range("A" & i).copy Destination:=Worksheets(2).Range("A" & i + 4)
End If
Next i
End Sub
Was ich nicht hinkriege: in den Spalten B bis F stehen auch noch Werte, die ich "mitnehmen" will Also:
es wird ein Wert gefunden in A3, dann kopiere bitte A3 bis F3 nach Tabellenblatt2.
Vielen Dank.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Copy
02.03.2017 08:52:03
Crazy
Hallo
ungetestet
Sub copy()
Dim i As Long
Dim Muster As String
Muster = InputBox("Dienstplanmuster eingeben", "DP")
For i = 1 To 4
If Range("A" & i).Value = Muster Then
Range("A" & i).Resize(1, 6).copy Destination:=Worksheets(2).Range("A" & i + 4)
End If
Next i
End Sub
MfG Tom
AW: Copy
02.03.2017 09:03:25
Georg
Tom bestens! gruß G
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige