Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1016to1020
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
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Warum

Warum
20.10.2008 15:35:00
Rolf
Hallo Leute!
Ich möchte sobald in A2 eine Zahl ist
sollte sie nach unten verschoben sein-
jedoch funktioniert es nicht!
If IsNumeric(Range("A2")) Then
Range("A2:B2").Insert (xlDown)
Gruß
Rolf

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

Betreff
Datum
Anwender
Anzeige
Bei numerischer Eingabe nach unten verschieben
20.10.2008 15:43:41
Andi
Hi,
ein etwas aussagekräftigerer Betreff wäre ebenso wünschenswert wie eine etwas detailliertere Problembeschreibung als einfach nur "funktioniert nicht".
Probier mal dies hier aus:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If IsNumeric(Range("A2")) Then
Range("A2:B2").Insert (xlDown)
End If
Application.EnableEvents = True
End Sub


Schönen Gruß,
Andi

AW: Bei numerischer Eingabe nach unten verschieben
20.10.2008 15:56:10
Rolf
Hallo Andi!
Also dein Beispiel funktioniert!!
Danke sehr!!
Rolf
gern geschehen... (ot)
20.10.2008 15:59:00
Andi
.
AW: Warum
20.10.2008 15:44:06
David
Hallo Rolf,
wäre schön, wenn du auch schreiben würdest, WAS denn nicht funzt. Macht er nur nicht das, was er soll oder gibs 'ne Fehlermeldung.
Wenn ich deinen Code

If IsNumeric(Range("A2")) Then
Range("A2:B2").Insert (xlDown)


noch um die Zeile


End If


ergänze, funzt es bei mir.
Gruß
David

Anzeige
AW: Warum
20.10.2008 15:45:00
JogyB
Bei mir funktioniert das.
Vorausgesetzt da kommt noch ein End If bzw. alles steht in einer Zeile.
Gruss, Jogy

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige