Übertragen

Forumthread: Übertragen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Übertragen

Übertragen

04.04.2014 10: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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Übertragen

04.04.2014 13:52:10

Rudi
AW: Übertragen

05.04.2014 05:50:23

sigi

AW: Übertragen

04.04.2014 13: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 05: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