Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Code
05.01.2021 23:14:05 Sabii
NotSolved
06.01.2021 10:08:19 Gast13651
NotSolved
06.01.2021 10:55:48 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Sabii
Datum:
05.01.2021 23:14:05
Views:
80
Rating: Antwort:
  Ja
Thema:
VBA Code

Hallo,


ich habe gestern ein Code bekommen was ich weiter schreiben soll.

Leider bin ich nicht "sooooo" gut im Programmieren.

Einiges konnte ich entschlüsseln, aber es wäre sehr nett, wenn mir jmd weiterhelfen könnte, indem er mir erklärt was hier genau geschieht.

 

1)

x = 111                                                           

Bereich = "D126:D135"

Set Quelltab = ActiveWorkbook.Worksheets(va)

Set Zieltab = ActiveWorkbook.Worksheets("AT700")

For Each y In Quelltab.Range("D126:D135")

Zieltab.Cells(x, 4) = y

x = x + 1

Next y

 

2) 

Do Until IsEmpty(Worksheets(va).Range("A" & m)) = True

        Dev = Worksheets(va).Range("A" & m)

        Typ = Worksheets(va).Range("D" & m)

        OEM = Worksheets(va).Range("E" & m)

        SN = Worksheets(va).Range("F" & m)

        Datum = Worksheets(va).Range("G" & m)

 

 

 


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 VBA Code
05.01.2021 23:14:05 Sabii
NotSolved
06.01.2021 10:08:19 Gast13651
NotSolved
06.01.2021 10:55:48 ralf_b
NotSolved