kopieren ohne Formeln

Forumthread: kopieren ohne Formeln

24.02.2003 21:30:10

Harald

Hallo
hab mal wieder eine Frage?
mit dem Code:
range("a5",range("k5").end(xlup)).select
wird bis zur letzten ausgefüllten Zeile markiert. es sind jedoch bis zur zeile 100 formeln enthalten, die dann auch markiert werden.gibt es eine möglichkeit nur die Zeilen mit den Werten zu markieren??
danke im voraus

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: kopieren ohne Formeln

24.02.2003 21:43:56

Ramses
Re: kopieren ohne Formeln

24.02.2003 21:58:56

Ralf Sögel
Re: kopieren ohne Formeln

24.02.2003 22:16:57

Ramses
Ja, Flüchtigkeitsfehler, so...

24.02.2003 22:55:54

Ralf Sögel
Re: Ja, Flüchtigkeitsfehler, so...

25.02.2003 15:48:35

Harald

Re: kopieren ohne Formeln

24.02.2003 21:43:56

Ramses

Hallo,

hast du den Code mal ausprobiert ? :-))

Für dein Problem ist mir leider keine einfache Lösung bekannt.
Du müsstest eine Schleife programmieren, die alle Zellen einer Zeile dieses Bereiches durchgeht und prüft, ob dort eine Formel drin steht.
Wenn nicht, die Zeile in Array schreiben und dann diese einzelnen Zeilen markieren.
Ob das den Rechenaufwand rechtfertigt ?

Gruss Rainer

Re: kopieren ohne Formeln

24.02.2003 21:58:56

Ralf Sögel

das Prinzip:
Option Explicit
Sub letzte()
Dim lngLZ As Long, lngZ As Long
lngLZ = 65536
If [k65536] = "" Then lngLZ = [k65536].End(xlUp).Row
For lngZ = lngLZ To 2 Step -1
If Cells(lngZ, 11) <> Empty Then Exit For
Next
Cells(lngZ, 11).Select
End Sub
Gruß Ralf

Re: kopieren ohne Formeln

24.02.2003 22:16:57

Ramses

Hallo Ralf,

damit selectierst du aber auch nur die einzelne leere Zelle,.. oder ?

Damit wird der gesamte Bereich von A5 bis zur letzten gefüllten Zelle in K korrekt markiert.

Gruss Rainer

Ja, Flüchtigkeitsfehler, so...

24.02.2003 22:55:54

Ralf Sögel

Option Explicit
Sub letzte()
Dim lngLZ As Long, lngZ As Long
lngLZ = 65536
If [k65536] = "" Then lngLZ = [k65536].End(xlUp).Row
For lngZ = lngLZ To 2 Step -1
If Cells(lngZ, 11) <> Empty Then Exit For
Next
Range(Cells(5, 1), Cells(lngZ, 11)).Select
End Sub

Bei der variante:
Sub Range_Select()
'Ohne Variablen :-)
If Range("K65536") = "" Then
Range("A5",Range("k65536").end(xlup)).select
End If
End Sub
wird auch markiert, wenn Formel enthalten sind, die 0 oder "" liefern.
Gruß Ralf

Re: Ja, Flüchtigkeitsfehler, so...

25.02.2003 15:48:35

Harald

das wars was ich gesucht habe
besten Dank
Harald

Beliebteste Forumthreads (12 Monate)

Forumthread: kopieren ohne Formeln

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread