Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro läuft nicht mehr

Makro läuft nicht mehr
20.01.2004 19:16:19
Dieter
Hallo Forum, habe ein Problem mit dem unten aufgefürten Makro.
Habe das Makro von einem Bekannten bekommen,das Makro kopiert ein ganzes
TB. in ein anderes TB.
Es lief bei mir auch tadelos bis ich die nicht genutzten Zeilen ausgeblendet habe.
Weiß jemand einen Rat was ich nun daran verändern muss damit es wieder seinen
Dienst tut.

Sub sichern()
Dim shQuelle As Worksheet, shZiel As Worksheet
Dim Rng As Range
Dim intRow%, nRow%, nColumn%
Set shQuelle = Worksheets("Blatt1")
Set shZiel = Worksheets("Sichern")
On Error Resume Next
intRow = shZiel.Cells.Find("*", shZiel.Range("A1"), , , _
xlByRows, xlPrevious).Row
If Err > 0 Then intRow = 1
On Error GoTo 0
nRow = shQuelle.UsedRange.Rows.Count
nColumn = shQuelle.UsedRange.Columns.Count
Set Rng = shQuelle.Range(shQuelle.Cells(2, 1), shQuelle.Cells _
(nRow, nColumn))
Rng.Copy shZiel.Range("A" & intRow + 2)
End Sub

MfG Dieter

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro läuft nicht mehr
20.01.2004 19:34:07
Ramses
Hallo
Nimm mal das "On Error Resume Next" und "On Error GoTo 0" raus.
Dann markiert dir EXCEL im Fehlerfall die Zeile.
Wenn du uns dann die Zeile die markiert wird sagen kannst, ist das ganze wesentlich einfacher.
Gruss Rainer
AW: Makro läuft nicht mehr
20.01.2004 19:40:14
Dieter
Hallo Rainer, bin nach deiner Anw. vorgegangen,aber das ist die gleiche Zeile wo es vorher auch schon gehangen hat, der zu kopierende Bereich ist A1:Z40
nRow = shQuelle.UsedRange.Rows.Count
MfG Dieter
AW: Makro läuft nicht mehr
20.01.2004 19:46:01
Ramses
Hallo
1. welche Fehlermeldung bringt EXCEL
2. Welche zeilen hast du ausgeblendet
Gruss Rainer
AW: Makro läuft nicht mehr
20.01.2004 19:51:58
Dieter
Betr: Fehlermeldung "Laufzeitfehler 6 Überlauf
Ausgeblendet Zeile 41 bis 65536
MfG Dieter
Anzeige
Deklaration
20.01.2004 20:00:52
Ramses
Hallo
ich hoffe es ist ganz einfach.
Die ausgeblendeten Zeilen werden jetzt verwendet !!!

Achtung USEDRANGE !!!
Dim nRow%
deklariert die Variable vom Typ Integer,... dieser ist aber auf 32000 irgendwas limitiert. Mit UsedRange selektierst du jetzt aber 65536 Zeilen
Definiere mal
Dim nRow As Long
und probiers dann mal.
Ich würde dir aber wirklich raten auf die UsedRange Methode verzichten weil es völlig unvorhergesehene Ergebnisse bringen kann. Versuche deinen Datenbereich eindeutig zu identifizieren und kopiere dann diese Bereich direkt
Gruss Rainer
Anzeige
AW: Deklaration
20.01.2004 20:18:05
Dieter
Erst mal Danke für deine Mühe Rainer.
Habe die Änderung vorgenommen,dann Stopte das Makro an unten aufgeührter Zeile.
Mit der Fehlermeldung "Kann Teil einer verbundenen Zelle nicht ändern"

Rng.Copy shZiel.Range("A" & intRow + 2)
MfG Dieter
Sorry :-)
20.01.2004 20:36:12
Ramses
Hallo
dann hast du ein grundsätzliches Problem :-)
Verbundene Zellen können nicht kopiert werden, deshalbe rate ich immer wieder davon ab.
Sorry, aber dafür habe ich keine Lösung, ausser die verbundenen Zellen vor dem Kopiervorgang auflösen, allerdings weiss ich nicht wie deine Tabelle aufgebaut ist, und ob sie nachher noch so aussieht wie vorher.
Gruss Rainer
Anzeige
AW: Makro läuft nicht mehr
20.01.2004 19:57:43
Bert
Dim intRow%, nRow%, nColumn%
Zeilen sollten i m m e r as Long deklariert werden.

Bert

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige