Kompatibel 2007 mit 2000 :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2007] Kompatibel 2007 mit 2000

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

geppi85
Newbie
Newbie

Anmeldedatum: 03.02.2008
Beiträge: 20

Verfasst am: 25.02.2008, 22:47

Guten tag

ich habe eine problem. ich hatte vorher Excel 2000 und ich hatte unter VBA folgendes eingeben und es hat funktioniert

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$4" Then
Select Case Target
Case "Zylinder"
Sheets("Volumen Formeln").Range("B3:E10").Copy Range("B4")
Case "Hohlzylinder"
Sheets("Volumen Formeln").Range("B13:E20").Copy Range("B4")
Case "Pyramide"
Sheets("Volumen Formeln").Range("B23:E33").Copy Range("B4")
Case "Kegel"
Sheets("Volumen Formeln").Range("B23:E33").Copy Range("B4")
Case "Pyramidenstumpf"
Sheets("Volumen Formeln").Range("B47:E55").Copy Range("B4")
Case "Kegelstumpf"
Sheets("Volumen Formeln").Range("H3:K10").Copy Range("B4")
Case "Kugel"
Sheets("Volumen Formeln").Range("H13:K20").Copy Range("B4")
Case "Würfel"
Sheets("Volumen Formeln").Range("H23:K30").Copy Range("B4")
Case "Rechteck"
Sheets("Volumen Formeln").Range("H36:K43").Copy Range("B4")
Case Else
Range("B3:H14").ClearContents
End Select
End If
If Target.Address = "$A$20" Then
Select Case Target
Case "Zylinder"
Sheets("Volumen Formeln").Range("B3:E10").Copy Range("B20")
Case "Hohlzylinder"
Sheets("Volumen Formeln").Range("B13:E20").Copy Range("B20")
Case "Pyramide"
Sheets("Volumen Formeln").Range("B23:E33").Copy Range("B20")
Case "Kegel"
Sheets("Volumen Formeln").Range("B23:E33").Copy Range("B20")
Case "Pyramidenstumpf"
Sheets("Volumen Formeln").Range("B47:E55").Copy Range("B20")
Case "Kegelstumpf"
Sheets("Volumen Formeln").Range("H3:K10").Copy Range("B20")
Case "Kugel"
Sheets("Volumen Formeln").Range("H13:K20").Copy Range("B20")
Case "Würfel"
Sheets("Volumen Formeln").Range("H23:K30").Copy Range("B20")
Case "Rechteck"
Sheets("Volumen Formeln").Range("H36:K43").Copy Range("B20")
Case Else
Range("B3:H14").ClearContents
End Select
End If
End Sub

aber unter Excel 2007 funktioniert es nicht mehr ??!!

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4404

Verfasst am: 25.02.2008, 23:19

Hallo!

Eigentlich sollte das auch unter Excel2007 funktionieren.
An dieser Art Befehlen hat sich nichts geändert...

_________________

Viele Grüße vom Schatzi
------------------------
Bitte nimm dir die Zeit für eine (kurze) Rückmeldung, ob dir mein Beitrag geholfen hat oder nicht.
Andere User, die das gleiche (oder ein ähnliches) Problem haben, werden dir dankbar sein.

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Ich kann Outlook 2007 nicht in Window...	Mendolin	Microsoft Outlook Hilfe	0	05.05.2008, 11:05
	[Excel 2007] Kann Hyperlink nicht fol...	farmerhilden	Microsoft Excel Hilfe	3	04.05.2008, 14:04
	Markierung und Gruppierung mehrer Obj...	priska	Microsoft Word Hilfe	0	02.05.2008, 18:59
	Visio 2007 automatisches Öffnen von Z...	Daria	Sonstiges	0	25.04.2008, 11:27
	hyperlink in excel 2000, Betriebssyst...	beatlejuice	Microsoft Excel Hilfe	2	23.04.2008, 18:30

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de