VBA Inhalte in Tabellenblatt einfügen
04.10.2016 22:55:02
Andreas
Ist es dennoch möglich, mittels VBA Makro in Zellen "Nur" Werte einzufügen, auch wenn auf dem Tabellenblatt Verbundene Zellen sind- in denen aber nichts eingefügt wird?
Meine Tabelle hat bis zu 5000 zeilen, wobei der Bereich zur Bearbeitung eingeschränkt wurde.
Das funktioniert auch.
Sub Von_Bearbeitung_nach_Tabelle1()
Dim Zeile As Long
Dim Zeile2 As Long
Dim StartZeile As Long
Dim last As Long
Dim arr
Dim x As Long
Dim y As Long
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Set Ws1 = ThisWorkbook.Worksheets("Tabelle1")
Set Ws2 = ThisWorkbook.Worksheets("Bearbeiten")
Application.ScreenUpdating = False
last = 20 ' Start von Tabelle 1
StartZeile = 1 ' Start von Bearbeitung
x = 0
y = 0
arr = Array(30, 19, 30, 19) ' JA,NEIN,JA,NEIN
Zeile = StartZeile
Zeile2 = StartZeile
Do
If Zeile > 5000 Then Exit Do
If Not x Mod 2 0 Then
Zeile2 = Zeile2 + arr(x) - 1 + y
Ws2.Rows(Zeile & ":" & Zeile2).EntireRow.Copy
Ws1.Cells(last, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, _
_
Transpose:=False
last = last + arr(x)
Zeile = Zeile + arr(x)
Else
last = last + arr(x)
End If
y = 1
If x = UBound(arr) Then x = 0: GoTo xx
x = x + 1
xx:
Loop
Application.ScreenUpdating = True
End Sub
Verwende dazu den Parameter "Paste:=xlPasteValues".
Und genau hier stoppt das Makro- wegen verbundener Zellen!
Ws1.Cells(last, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False,
Habe die Zellen noch mal kontrolliert- sie sind nicht verbunden. Es befinden sich verbundene _
Zellen auf dem Blatt, wo eingefügt werden soll- diese werden aber mit
arr = Array(30, 19, 30, 19)
Glaube aber, dort liegt der Fehler- Sieht Excel VBA diese Zellen, die unangetastet bleiben sollen- auch?
Kann wer helfen?
Grüße Andreas
Anzeige