Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1356to1360
1356to1360
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Übertragen

Forumthread: Übertragen

Übertragen
04.04.2014 08:26:51
sigi
Guten Morgen,
in nachfolgender Datei möchte ich Daten übertragen lassen.
Dabei soll zuerst geprüft werden ob genügend Zeilen vorhanden sind. Wenn nein
einfügen, wenn zu viele Zeilen dann löschen.
Leider funktioniert der Übertrag nicht.
Danke!
Gruß
Sigi
https://www.herber.de/bbs/user/89983.xlsm

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Übertragen
04.04.2014 11:52:10
Rudi
Hallo,
nur als Hinweis:
In einem With-Rahmen musst du vor jedes Range und jedes Cells einen . setzen, wenn sich die Angabe auf das Sheet bezieht.
Gruß
Rudi

AW: Übertragen
05.04.2014 03:50:23
sigi
Hallo Rudi,
Danke, für Deinen Hinweis.
Habe mein Problem gelöst indem ich den Bereich kopiere und dann einfüge. 
Sub Ubertragen()
Dim Z As Long
Dim R As Long
Dim loEnde As Long
Dim wksZ As Worksheet
Dim WksAng As Worksheet
Set wksZ = ThisWorkbook.Sheets("Z_Speicher")
Set WksAng = ThisWorkbook.Sheets("Angebot")
With wksZ
Z = .Cells(1, 10) - 1
End With
With WksAng
.Range(.Cells(19, 2), .Cells(37, 6)).ClearContents
loEnde = .Cells(Rows.Count, 5).End(xlUp).Row - 3
If loEnde = 38 Then
GoTo Step1
ElseIf loEnde  38 Then
If loEnde = 39 Then
.Range(.Cells(loEnde - 3, 2), .Cells(loEnde - 3, 7)).Delete
Else
R = loEnde - 39
.Range(.Cells(loEnde - 3, 2), .Cells(loEnde - R - 3, 7)).Delete
End If
End If
End With
With wksZ
Z = .Cells(1, 10)
R = Z - 17
If R

Gruß
Sigi
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige