Microsoft Excel

Herbers Excel/VBA-Archiv

Warum | Herbers Excel-Forum


Betrifft: Warum von: Rolf
Geschrieben am: 20.10.2008 15:35:10

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

  

Betrifft: Bei numerischer Eingabe nach unten verschieben von: Andi
Geschrieben am: 20.10.2008 15:43:41

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


  

Betrifft: AW: Bei numerischer Eingabe nach unten verschieben von: Rolf
Geschrieben am: 20.10.2008 15:56:10

Hallo Andi!
Also dein Beispiel funktioniert!!
Danke sehr!!
Rolf


  

Betrifft: gern geschehen... (ot) von: Andi
Geschrieben am: 20.10.2008 15:59:19

.


  

Betrifft: AW: Warum von: David
Geschrieben am: 20.10.2008 15:44:06

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


  

Betrifft: AW: Warum von: JogyB
Geschrieben am: 20.10.2008 15:45:39

Bei mir funktioniert das.

Vorausgesetzt da kommt noch ein End If bzw. alles steht in einer Zeile.

Gruss, Jogy