Festwerte umwandel Fehlermeldun bei Codeausführung
11.06.2006 16:04:35
Torge
wer kann mir einen Hinweis geben, wie ich folgendes Problem der Fehleranzeige ändern kann?
Habe folgenden Code:
Aus einer Arbeitsmappe wird ein Tabellenblatt in eine neue Mappe kopiert (in der Arbeitsmappe sind Blätter sichtbar bzw. ausgeblendet), mittels Button sollen dann alle Formeln in Festwerte umgewandelt werden. Da in dem zu kopierenden Tabellenblatt noch anderer Code steht, erhalte ich immer eine Fehlermeldung beim umwandeln in Festwerte. Könnte dies mit den Aus- bzw. sichtbaren Tabellen zusammenhängen, wenn ja, wie kann ich dies umgehen oder verhindern. Vielleicht Code in Module packen oder Code löschen lassen vor dem Umwandlen, den Code für das Umwandeln in ein Modul packen, komme hier nicht weiter. Vielen Dank schon mal für die Hilfe oder Hinweise.
Code hier:
Option Explicit
'Kopiert Tabelle in neue Mappe
Private Sub CommandButton7_Click()
Dim bytMsg As Byte
Dim outObj As Object
Dim Mail As Object
Dim i As Integer
Sheets("Fin.-Anfrage").Copy
With ActiveSheet.Range("C2:BJ277")
.Copy
End With
Application.CutCopyMode = False
bytMsg = MsgBox("Datei wurde in neue Mappe kopiert." & vbLf & _
"Bitte den Button Umwandeln" & vbLf & _
"in Festwerte anklicken?", vbYesNo)
End Sub
'in Festwerte umwandeln
Private Sub CommandButton8_Click()
Range("C2:BJ277") = Range("C2:BJ277").Value
End Sub
'Code für einblenden der ausgeblendeten Blätter in der Originaldatei
Private Sub Worksheet_Change(ByVal Target As Range)
hide Target
End Sub
Sub hide(c As Range)
If Not ActiveSheet.Name = "Fin.-Anfrage" Then Exit Sub
If Intersect(c, Range("D12")) Is Nothing Then Exit Sub
Select Case Range("D12")
Case 0
'auf die Anweisung erhalte ich immer die Fehlermeldung
Sheets("Passwort (2)").Visible = True
Sheets("Fin.-Anfrage").Visible = True
Sheets("Dateneingabe").Visible = False
Case "C"
Sheets("Passwort (2)").Visible = True
Sheets("Fin.-Anfrage").Visible = True
Sheets("Dateneingabe").Visible = True
End Select
End Sub
Gruß Torge