Thema Datum  Von Nutzer Rating
Antwort
Rot Bedinge Kopie Zeilen
 10.11.2019 09:02:08 Rebecca
NotSolved
10.11.2019 11:00:49 Rebecca
Solved

Ansicht des Beitrags:
Von:
Rebecca		 Datum:
10.11.2019 09:02:08		 Views:
747		 Rating:
     
Antwort:
  Ja
Thema:
Bedinge Kopie Zeilen

Hallo zusammen!

Meine VBA-Kenntnisse sind eher dürgtig, deshalb bin ich auf der Suche nach Hilfe, um mir den Büro-Alltag etwas zu erleichtern.


Ich führe im Moment für 10 Techniker eine Auswertung, jeweils in einer eigenen Datei mit den Sheets "Auswertung" (Zusammenfassung mit Bezug auf die anderen Sheets) und Januar bis Dezember.

Nun würde ich gerne eine Auswertung als "Quelle" führen mit den Sheets Januar bis Dezember und einer Variablen in der ersten Spalte (Kürzel für den jeweiligen Techniker). Daraus würde ich gern über ein Makro die Daten des jeweiligen Technikers in die zugehörige andere Datei kopieren.


Mein Code sieht im Moment so aus:

Option Explicit

       
       
       
       Sub BedingteKopieZeilen()
       Dim Zeile As Long
       Dim ZeileMax As Long
       Dim n As Long
       
       With Quelle SheetX
       ZeileMax = .UsedRange.Rows.Count
       n = 3
       
       For Zeile = 3 To ZeileMax
       
       If .Cells(Zeile, 1).Value = "kle" Then
       .Rows(Zeile).Copy Destination.=Datei Kleeberger SheetX.Rows(n)
       n = n + 1
       
       End If
       Next Zeile
       End With
       End Sub

Quelle SheetX und Datei Kleeberger SheetX stehen hier als Platzhalter.

Der Code funktioniert so innerhalb einer Datei, aber was und wie muss ich hier noch definieren, damit das funktionieren kann?


Vielen Dank für eure Hilfe!

LG Rebecca

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
Rot Bedinge Kopie Zeilen
 10.11.2019 09:02:08 Rebecca
NotSolved
10.11.2019 11:00:49 Rebecca
Solved