Office: VBA: Bestimmte Zellen von einer Excel Datei in die andere (nach Bedienungen)

Guten Morgen zusammen,

ich hab gesehen wie hilfreich dieser Forum sein kann und das hier sehr viel Expertise vorhanden ist die mir in meinem Fall weiterhelfen kann.

Ich habe folgendes Problem:
Ich habe einen Standard-Auszug vom Jira-Ticket-System. In dieser Excel bekomme ich jegliche Tickets mit deren Status und co aufgelistet. Ich würde basierend auf den Status "Review Completed" bestimmte Zellen der Ticket-Zeile in einer anderen Datei (mein Abnahmeprotokoll) übertragen (Titel, Date of Creation, Budget, ...).

Als Basis hab ich mir von einem anderen Thread diesen Code genommen. Dieser basiert allerdings auf zwei Datenblätter innerhalb einer Datei und ist natürlich nur bedient an meiner Aufgabe angepasst, da ich sehr schnell an meine Grenzen komme ...

Sub Abnahmeprotokoll()
Dim Zeile As Long
Dim ZeileMax As Long
Dim i As Long

With Abnahmeprotokoll
ZeileMax = .UsedRange.Rows.Count
n = worksheets( "Abnahmeprotokoll" ).cells( 2, 11 ).end( xldown ).row + 1

For Zeile = 2 To ZeileMax

If .Cells(Zeile, 5).Value = "Review completed" Then

.Rows(Zeile).Copy Destination:=Abnahmeprotokoll.Rows(n)
n = n + 1

End If
Next Zeile
End With
End Sub

Ich bin um jede Hilfe eurerseits dankbar.

Sonnige Grüße
Angelo

 

Bitte den Code zur besseren Lesbarkeit wie folgt einfügen:


Dieser Beitrag: VBA Bestimmte Zellen aus einer anderen Datei in eine andere Datei kopieren (office-hilfe.com) hat dir nicht geholfen?

 

Code:

Sub AbrechenbareTicketsziehen()

Dim Zeile As Long
Dim ZeileMax As Long
Dim i As Long

With Abnahmebericht
ZeileMax = .UsedRange.Rows.Count
n = Worksheets("Abnahmebericht").Cells(2, 11).End(xlDown).Row + 1

For Zeile = 2 To ZeileMax

If .Cells(Zeile, 8).Value = "erledigt" Then

.Rows(Zeile).Copy Destination:=Tabelle4.Rows(n)
n = n + 1

End If
Next Zeile
End With
End Sub
End Sub

 

Hab auch mittlerweile einen zweiten Code gefunden der mit dem ersten sicherlich in meine Richtung gehen könnte.. (auch basierend auf zwei Tabellenblätter in einer Datei) Hier der Code:

Code:

Sub Bsp2()


Dim rng As Range
For Each rng In Sheets("Abnahmebericht").Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
If Sheets("JiraTickets").Cells(Row, 6).Value = "Review Completed" Then
Sheets("JiraTickets").Cells(rng.Row, 1).Copy
Destination:=Sheets("Abnahmebericht").Cells(rng.Row, 2),
Sheets("JiraTickets").Cells(rng.Row, 2).Copy
Destination:=Sheets("Abnahmebericht").Cells(rng.Row, 9),
Sheets("JiraTickets").Cells(rng.Row, 8).Copy
Destination:=Sheets("Abnahmebericht").Cells(rng.Row, 23),
Sheets("JiraTickets").Cells(rng.Row, 12).Copy
Destination:=Sheets("Abnahmebericht").Cells(rng.Row, 27),
Sheets("JiraTickets").Cells(rng.Row, 13).Copy
Destination:=Sheets("Abnahmebericht").Cells(rng.Row, 30),



End If
Next rng
End Sub

 

Hab mittlerweile ein Update. Makro wird durchgeführt, allerdings passiert nichts...

Code:

Sub Bsp2()
Dim rng As Range
For Each rng In Sheets("Abnahmebericht").Range(Cells(11, 2), Cells(Rows.Count, 1).End(xlUp))
If Sheets("JiraTickets").Cells(5, 6).Value = "Review Completed" Then
Sheets("JiraTickets").Cells(rng.Row, 1).Copy = Abnahmebericht.Cells(rng.Row, 2)
Sheets("JiraTickets").Cells(rng.Row, 2).Copy = Abnahmebericht.Cells(rng.Row, 9)
Sheets("JiraTickets").Cells(rng.Row, 8).Copy = Abnahmebericht.Cells(rng.Row, 23)
Sheets("JiraTickets").Cells(rng.Row, 12).Copy = Abnahmebericht.Cells(rng.Row, 27)
Sheets("JiraTickets").Cells(rng.Row, 13).Copy = Abnahmebericht.Cells(rng.Row, 30)
End If
Next rng
End Sub