Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1356to1360
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1356to1360
1356to1360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ü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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige