Thema Datum  Von Nutzer Rating
Antwort
19.07.2023 19:28:12 Fiolax
NotSolved
19.07.2023 22:37:59 ralf_b
NotSolved
19.07.2023 23:04:55 Gast17966
NotSolved
19.07.2023 23:39:21 ralf_b
NotSolved
20.07.2023 07:08:20 Fiolax
NotSolved
Blau Zeile für Zeile abarbeiten
 21.07.2023 00:05:08 ralf_b
NotSolved
21.07.2023 07:55:05 Fiolax
NotSolved
21.07.2023 18:25:27 ralf_b
NotSolved
21.07.2023 22:46:31 Fiolax
NotSolved
22.07.2023 17:47:10 LT67
NotSolved
22.07.2023 23:39:50 Fiolax
Solved
23.07.2023 10:46:32 LT67
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
21.07.2023 00:05:08		 Views:
390		 Rating:
     
Antwort:
  Ja
Thema:
Zeile für Zeile abarbeiten

zwei varianten,ungetestet. die Namen der Arbeitsblätter mußt du noch anpassen.

Sub Erweitern()
    Dim i&
   i = 5
   
   Do While Worksheets("name register 1").Cells(i, 1) <> "" 'Stop die suche sobald A leer ist.
        'schau ob in Regsiter 1 Zeile 6 Werte stehen
        If Worksheets("name register 1").Cells(i + 1, 1) <> "" Then
           'ist das der Fall kopiere die Formeln in Zeile 6 von register 2
           Worksheets("name register 2").Range("A" & i & ":K" & i).AutoFill Destination:=Range("A" & i + 1 & ":K" & i + 1), Type:=xlFillValues
        End If
        'und so weiter
        i = i + 1
   Loop
End Sub


Sub test1()
 Dim lrow&
 lrow = Worksheets("name regiser 1").Range("A5").End(xlDown).Row 'letzte zeile
 Worksheets("name register 2").Range("A5:K5").AutoFill Destination:=Range("A6:K" & lrow), Type:=xlFillValues
End Sub

 

Ihre Antwort
  • 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: Name: Email:



  • 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
19.07.2023 19:28:12 Fiolax
NotSolved
19.07.2023 22:37:59 ralf_b
NotSolved
19.07.2023 23:04:55 Gast17966
NotSolved
19.07.2023 23:39:21 ralf_b
NotSolved
20.07.2023 07:08:20 Fiolax
NotSolved
Blau Zeile für Zeile abarbeiten
 21.07.2023 00:05:08 ralf_b
NotSolved
21.07.2023 07:55:05 Fiolax
NotSolved
21.07.2023 18:25:27 ralf_b
NotSolved
21.07.2023 22:46:31 Fiolax
NotSolved
22.07.2023 17:47:10 LT67
NotSolved
22.07.2023 23:39:50 Fiolax
Solved
23.07.2023 10:46:32 LT67
NotSolved