Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
764to768
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
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kopieren einfügen wenn eine 2 in Spalte A

Kopieren einfügen wenn eine 2 in Spalte A
22.05.2006 07:47:24
Andre´
Hallo alle zusammen,
ich habe ca. 41000 Zeile, wobei in verschiedenen Zeilen Formeln enthalten sind, die nicht durch Werte ersetzt werden sollen aber andere Zeilen die ersetzt werden müssen. Deshalb habe ich eine Hilfsspalte in A angelegt wo verschiedene Zahlen stehen. Da es mit filtern dann kopieren und Werte einfügen nicht funktioniert, möchte ich gern erreichen wenn in einer Zelle der Spalte A eine 2 steht, dass dann die gesamte Zeile durch Werte ersetzt wird.
Hat dafür jemand eine Makrolösung.
Danke im voraus
Andre

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

Betreff
Datum
Anwender
Anzeige
AW: Kopieren einfügen wenn eine 2 in Spalte A
22.05.2006 08:01:41
Heiko
Hallo Andre,
meinst du sowas ?!

Sub Andre()
Dim lngI As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For lngI = 1 To ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
If Cells(lngI, 1) = 2 Then
Cells(lngI, 1).EntireRow.Copy
Cells(lngI, 1).EntireRow.PasteSpecial Paste:=xlPasteValues
End If
Next lngI
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.Calculate
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
AW: Kopieren einfügen wenn eine 2 in Spalte A
22.05.2006 08:15:32
Andre´
Hallo Heiko,
danke für die schnelle Antwort es funktioniert prima!
MFG
Andre
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige