Anzeige
Archiv - Navigation
1680to1684
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
Inhaltsverzeichnis

Bezug geht verloren

Bezug geht verloren
08.03.2019 08:41:32
Fred

Hallo Excelenten,
ich kopiere Teams von Blatt "Saison" ins aktive Blatt (dritte Spalte),- Duplikate werden gelöscht.
      ActiveSheet.Cells(6, 3).PasteSpecial xlPasteValues
With Selection
.RemoveDuplicates 2, xlNo
On Error Resume Next
.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
On Error GoTo 0
.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlGuess
End With
In folgenden Spalten habe ich Formeln, welche sich u.a. auf die dritte Spalte beziehen.
Nach Ausführung des VBA verlieren diese Formeln entsprechenden Bezug.
Wie kann ich das ändern?
zur Erklärung:
https://www.herber.de/bbs/user/128198.xlsb
Mit freundlichen Gruß
Fred Neumann

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

Betreff
Datum
Anwender
Anzeige
AW: Bezug geht verloren
08.03.2019 15:57:20
{Boris}
Hi,
löschen ist immer ein Formelkiller. Entferne nur die Inhalte.
In der Art:
Sub Schaltfläche1_Klicken()
Dim loLetzte As Long
Application.Calculation = xlCalculationManual
ActiveSheet.Range("B6:D100").ClearContents
With Sheets("Saison")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row ' sucht letzten Eintrag in Spalte A
Union(.Range(.Cells(7, 1), .Cells(loLetzte, 1)), .Range(.Cells(7, 3), .Cells(loLetzte, 3))). _
_
Copy
End With
ActiveSheet.Cells(6, 3).PasteSpecial xlPasteValues
With Selection
.RemoveDuplicates 2, xlNo
.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlGuess
End With
Application.Calculation = xlCalculationAutomatic
End Sub
VG, Boris
Anzeige
AW: Bezug geht verloren
08.03.2019 17:08:27
Fred
Danke Boris,
den ClearContents-Bereich habe ich nochmals auf C6:D100 begrenzt.
Ab Spalte B6 möchte ich noch den Rang bestimmen.
Danke für die Korrektur!
Gruß
Fred

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige