Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
984to988
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
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verschieben

Verschieben
17.06.2008 15:16:07
Rolf
Hallo Leute!
Ein Problem!
Also ein Makro:

Sub Verschieben()
Range("A1").Insert (xlDowun)
Range("A1").Value=""
End Sub


Arbeitet wunderbar!
Jedoch es werden nicht nur Werte
nach Unten verschoben aber auch
Formeln die in A1 sind.Ich möchte
die Formel jedoch in A1 behalten!
Wie kan mann erreichen das nur
Werte (und nicht Formeln) verschoben
werden?
Grüße
klaro

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verschieben
17.06.2008 15:35:24
AK
Hallo klaro,
bei Formel soll keine Zelle eingefügt werden, ja?! Dann probier mal das hier:

Sub Verschieben()
If Range("A1").HasFormula = False Then
Range("A1").Insert (xlDown)
Range("A1").Value = ""
End If
End Sub


Grüße
Andreas

AW: Verschieben
17.06.2008 16:11:00
Rolf
Hallo Andreas!
Makro muss unterscheiden zwischen Formula
und Ergebniß(Value) und nur Value verschieben!
Die Formel ist immer da (in A1).
Grüse
Rolf

AW: Verschieben
17.06.2008 16:20:00
AK
Sorry Rolf, aber das kapiere ich nicht. Kannst du mal nen Beispiel geben bzw. ne Datei hochladen?
Gruß
Andreas

Anzeige
AW: Verschieben
17.06.2008 16:40:09
Rolf
Hallo Andreas!
Also in A1 ist die Zahl =15
und die Formel =SUMME(B1;C1)
B1=5,C1=3
Also Zahl 15 soll verschoben werden nach Unten
jedoch die Formel soll in A1 bleiben.
Rolf

AW: Verschieben
17.06.2008 20:38:07
Josef
Hallo Rolf,
Sub Verschieben()
With Range("A2")
    .Insert
    .Value = Range("A1").Value
End With
End Sub


Gruß Sepp



Anzeige
AW: Verschieben
17.06.2008 22:19:00
Rolf
Hallo Sepp!
Funktioniert prima!!
Ich habe damit soviel Zeit
verloren!
Danke sehr!!
Gruß
Rolf

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige