Thema Datum  Von Nutzer Rating
Antwort
Rot Copieren mit 2 variablen
11.03.2020 10:45:26 Brülisauer
Solved
11.03.2020 11:10:34 Gast70117
NotSolved
11.03.2020 11:23:42 Gast47540
NotSolved
11.03.2020 13:08:29 Brülisauer
NotSolved

Ansicht des Beitrags:
Von:
Brülisauer
Datum:
11.03.2020 10:45:26
Views:
76
Rating: Antwort:
 Nein
Thema:
Copieren mit 2 variablen

Hallo.
Ich möchte ein Bereich der nur mit variablen definiert wird kopieren. Und ich weiss nicht, wie ich den kopierbefehl codieren muss.
Kann mir jemand helfen Danke :-)

Hier ist mein Cod:

Worksheets("Données calculations").Activate

Dim Psemaine As Integer
Psemaine = Range("J6")
MsgBox Psemaine

Worksheets("Calcule des semaines").Activate
Range("A1").Select

Dim RechercheB As Range
Dim P As String
Set RechercheB = Range("C1:BB1").Find(What:=Psemaine)
P = RechercheB.Address
MsgBox P

Dim Q As Integer
Q = Application.WorksheetFunction.CountA(Range(P & "1:BB1"))
MsgBox Q

Range.Copy (von P nach P+(Q + 0, 1))

Worksheets("Données calculations").Activate
Range("L1").Select
ActiveCell.Raplace


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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 markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Copieren mit 2 variablen
11.03.2020 10:45:26 Brülisauer
Solved
11.03.2020 11:10:34 Gast70117
NotSolved
11.03.2020 11:23:42 Gast47540
NotSolved
11.03.2020 13:08:29 Brülisauer
NotSolved