Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
17.03.2022 10:13:20 |
Lukas |
|
|
Datensätze in verschiedene Tabellenblätter verschieben |
17.03.2022 22:04:21 |
Yal |
|
|
|
18.03.2022 09:41:19 |
Lukas |
|
|
|
18.03.2022 15:17:18 |
Yal |
|
|
Von:
Yal |
Datum:
17.03.2022 22:04:21 |
Views:
805 |
Rating:
|
Antwort:
|
Thema:
Datensätze in verschiedene Tabellenblätter verschieben |
Moin Lukas,
Solche Skripte gibt es gefüllt wie Sand am Meer.
Sub Datensätze_verschieben()
Dim r As Long ' r für Row
Dim wsZiel As Worksheet
With Worksheets("Eingabe")
For r = .Range("A99999").End(xlUp).Row To 2 Step -1
Set wsZiel = Worksheet_auswählen(.Cells(r, "B").Value)
Rows(r).Copy wsZiel.Range("A99999").End(xlUp).Offset(1, 0)
'die Zeile wird auch gelöscht, um doppelte Übertrag zu vermeiden
Rows(r).Delete Shift:=xlUp
Next
End With
End Sub
Private Function Worksheet_auswählen(WsName As String) As Worksheet
Dim W As Worksheet
On Error Resume Next
Set W = ThisWorkbook.Worksheets(WsName)
'wenn das Blatt nicht existiert, wird sie erzeugt
If Worksheet_auswählen Is Nothing Then
Set W = ThisWorkbook.Worksheets.Add
W.Name = WsName
End If
Set Worksheet_auswählen = W
End Function
VG
Yal
|
- 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
|
|
17.03.2022 10:13:20 |
Lukas |
|
|
Datensätze in verschiedene Tabellenblätter verschieben |
17.03.2022 22:04:21 |
Yal |
|
|
|
18.03.2022 09:41:19 |
Lukas |
|
|
|
18.03.2022 15:17:18 |
Yal |
|
|