Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopierbereich auswählen

Forumthread: Kopierbereich auswählen

Kopierbereich auswählen
15.02.2018 17:27:57
Thorsten
Hallo,
zum Abschluss meines klenen Projekzr sind noch 2 Kleinigkeiten offen.
Frage 1
Bei meinem nachstehendem Code-Abschnitt wird der gesamte Formelbereich kopiert.
Ich möchte aber nur den Bereich, wo auch tatsächlich Werte drin enthalten sind.
Wie muss der Abschnitt geändert werden?
Sheets("Export").Range("B1:AB" & Sheets("Export").Cells(Rows.Count, 1).End(xlUp).Row).Copy
Frage 2
Die Daten werden dann per Makro an eine andere Datei übergeben. Diese hat Verknüpfungen. Beim Öffnen (Workbooks.Open Filename:="Y:\Daten\Name.xlsb")
fragt Excel "Verknüpfungen aktualisieren". Es wäre super, wenn diese Anzeige mit einem JA unterdrückt werden kann.
Gruß Thorsten
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopierbereich auswählen
15.02.2018 23:56:46
Thorsten
Hallo,
hat keiner eine Idee hierzu:
Vielleicht habe ich mich auch unklar ausgedrückt.
Über Formeln den End-Bereich zu ermitteln ist kein Problem, z.B.
=ADRESSE(MAX(Export!$A$1:$A$500);29;1)
Das muss doch auch per VBA irgendwie gehen.
Der Anfangsbereich ist immer "B1"
Hier mein Umsetzungsversuch:
Sheets("Export").Range("B1" & ":" & FormulaR1C1 = "=ADRESSE(MAX(Export!R1C1:R500C1),29,1)").Copy
Da kommt der Debugger "Variable nicht definiert". ?
Gruß Thorsten
Anzeige
AW: Kopierbereich auswählen
16.02.2018 11:19:38
Rudi
Hallo,
1. 
  With Sheets("Export")
.Range(.Cells(1, 2), .Cells(WorksheetFunction.Max(.Range("A1:A500")), 29)).Copy
End With

2.
Workbooks.Open Filename:="Y:\Daten\Name.xlsb", UpdateLinks:=3
Gruß
Rudi
Danke für die Erlösung
16.02.2018 12:03:41
Thorsten
Hallo Rudi,
danke für die Erlösung (stundenlanger erfolglosen Versuchen):-)
Funktioniert wie gewollt.
Gruß Thorsten
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige