befüllte Spalten nach extern kopieren
08.08.2022 09:46:58
Ulli
ich bräuchte bitte eure Hilfe um die Daten in bestimmten Spalten, mit variabler Zeilenanzahl in ein anderes Arbeitsblatt zu kopieren
Ich habe schon einen Code gebastelt, der jedoch nicht so wirklich funktioniert.
Ich hoffe mir kann jemand weiterhelfen.
Option Explicit
Public Sub Kopieren()
Dim WsQ As Worksheet
Dim WsZ As Worksheet
Dim wkbZ As Workbook
Dim rgQ As Range, rgZ As Range
Dim Zeile1Z As Long
Dim strPfad As String
Dim strDatei As String
'Set WsQ = ActiveSheet
'Verzeichnis der Zieldatei
strPfad = "\\W:50_Monitoring"
'Name der Zieldatei
strDatei = "Datenbank_Weichbearbeitung.xlsm"
If Dir(strPfad & "\" & strDatei) = "" Then
MsgBox "Datei " & vbLf & strPfad & "\" & strDatei & vbLf & "nicht gefunden"
Else
'Makrobremsen lösen
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
'Set WsQ = ActiveSheet
Set WsQ = Worksheets("Eingabe") 'Im aktiven Arbeitsblatt möchte ich per Knopfdruck auf einen CommandButton das Makro ausführen.
Dieses Makro soll im Tabellenblatt "Eingabe" die beiden Bereiche ("B12:AW...") und ("BC12:BG...") kopieren und in einer anderen Datei "Monitoring" unter dem Tabellenblatt "Datenbank" eingefügt werden.
Die zu kopierende Zeilenanzahl sollte, wenn möglich angepasst werden auf die Anzahl der befüllten Zeilen (Überprüfung ob befüllt über Spalte B, da A leer ist)
Und beim Einfügen in die Zieldatei, in die erste, freie Zeile ( Überprüfung über Spalte A)
Die beiden kopierten Bereiche sollen jedoch in eine Zeile geschrieben werden ( die Lücke dazwischen, beinhaltet in der Zieldatei Formeln, die ich nicht überschreiben will/kann, deswegen das Einfügen der Spalten vorher/nachher)
Ich hoffe die Beschreibung ist ausführlich genug und auch verständlich
Vielen Dank im Voraus für eure Hilfe
Beste Grüße
Ulli
