|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
27.03.2019 08:10:25 |
Peter |
|
|
|
27.03.2019 08:44:09 |
Gast80875 |
|
|
|
27.03.2019 10:02:18 |
Peter |
|
|
|
27.03.2019 10:06:57 |
Peter |
|
|
 Zeilen kopieren wenn Bedingung erfüllt ist |
28.03.2019 07:37:48 |
Peter |
|
|
|
28.03.2019 08:15:25 |
Flotter Feger |
|
|
|
28.03.2019 08:39:16 |
Peter |
|
|
|
29.03.2019 07:22:48 |
Peter |
|
|
|
29.03.2019 12:20:27 |
Gast 80875 |
|
|
Von:
Peter |
Datum:
28.03.2019 07:37:48 |
Views:
516 |
Rating:
|
Antwort:
|
Thema:
Zeilen kopieren wenn Bedingung erfüllt ist |
|
Hier habe ich noch ein sehr gutes Script gefunden welches auch sehr gut läuft.
Was kann ich an dem Script noch ändern damit die Formel und Formatierungen auch mit kopiert werden?
Sub Filialen_umtragen()
Dim Zeile, maxZeilen, Spaltenbeginn, Spaltenende As Double
maxZeilen = 999
Spaltenbeginn = 1 'hier ändern für EO z.B. Spaltenbeginn = 145
Spaltenende = 21 'hier ändern für EV z.B. Spaltenende = 152
For i = 2 To 2
Worksheets(i).Range("A3:W34").Value = ""
Next i
Zeile = 5
For i = 5 To maxZeilen
If Worksheets("Komplett").Cells(i, 4).Value = "x" And Worksheets("Komplett").Cells(i, 22).Value = "_2019" Then
For j = Spaltenbeginn To Spaltenende
Worksheets("2019").Cells(Zeile, j).Value = Worksheets("Komplett").Cells(i, j).Value
Next j
Zeile = Zeile + 1
End If
Next i
Zeile = 5
For i = 5 To maxZeilen
If Worksheets("Komplett").Cells(i, 4).Value = "x" And Worksheets("Komplett").Cells(i, 22).Value = "_2020" Then
For j = Spaltenbeginn To Spaltenende
Worksheets("2020").Cells(Zeile, j).Value = Worksheets("Komplett").Cells(i, j).Value
Next j
Zeile = Zeile + 1
End If
Next i
Zeile = 5
For i = 5 To maxZeilen
If Worksheets("Komplett").Cells(i, 4).Value = "x" And Worksheets("Komplett").Cells(i, 22).Value = "_2021" Then
For j = Spaltenbeginn To Spaltenende
Worksheets("2021").Cells(Zeile, j).Value = Worksheets("Komplett").Cells(i, j).Value
Next j
Zeile = Zeile + 1
End If
Next i
End Sub
|
- 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
|
|
27.03.2019 08:10:25 |
Peter |
|
|
|
27.03.2019 08:44:09 |
Gast80875 |
|
|
|
27.03.2019 10:02:18 |
Peter |
|
|
|
27.03.2019 10:06:57 |
Peter |
|
|
Zeilen kopieren wenn Bedingung erfüllt ist |
28.03.2019 07:37:48 |
Peter |
|
|
|
28.03.2019 08:15:25 |
Flotter Feger |
|
|
|
28.03.2019 08:39:16 |
Peter |
|
|
|
29.03.2019 07:22:48 |
Peter |
|
|
|
29.03.2019 12:20:27 |
Gast 80875 |
|
|