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: 21

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: 5570

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
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

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
	[Excel 2007] Werte sortieren egal ob ...	Shanissima	Microsoft Excel Hilfe	2	07.09.2008, 22:26
	Nach XP-Umstellung - Excel 2000 stürz...	j.b-man	Microsoft Excel Hilfe	3	03.09.2008, 12:07
	Microsoft Office 2007 Excel Speicherp...	lassi1	Microsoft Excel Hilfe	0	02.09.2008, 11:16
	plötzlich keine summenberechnung mehr...	globus111	Microsoft Excel Hilfe	3	29.08.2008, 10:32
	HILFE wegen Word 2007 AddIn Math	frank123	Microsoft Word Hilfe	0	22.08.2008, 17:44

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