vba problem

hallo zusammen.

ich habe folgendes problem ich möchte diesen vba code der eiwandfrei funktioniert so umschreiben ,dass er in tabelle 3 einer excelmappe
in allen zellen die mit der maus markiert wurden die formel löscht und gegen deren ergebniss ersetzt, und davor eine msgbox mit ja nein cancel bringt. bitte um schnelle antwort.

MfG Andreas

Private Sub Workbook_Open()
If Tabelle7.Range("B2").Value > "" Then
Dim Antwort As Integer
Antwort = MsgBox("Möchtest du das Ergebnis der Formel speichern ?", vbYesNoCancel + vbQuestion + vbDefaultButton2, "Frage")

If Antwort = vbYes Then
GoTo 1:
Else
GoTo 2:
End If
1:
anfang: Dim rngBereich As Range, iCalc As Integer

'Bereich wo sich die Formeln befinden, hier Spalte 1
Set rngBereich = Columns(4)
On Error GoTo KeineFormeln:
'sind keine Formeln vorhanden, kommt es zum Fehler
Set rngBereich = rngBereich.SpecialCells(xlCellTypeFormulas)
On Error GoTo anfang:

With Application
iCalc = .Calculation
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual

' Formel wird durch festen Wert ersetzt,
' wenn diese als Ergebnis nicht leer liefert.
' Dies kann auch umgestellt oder erweitert werden
For Each rngBereich In rngBereich
If rngBereich > "" Then rngBereich.Value = rngBereich.Value
Next rngBereich

.Calculation = iCalc
.ScreenUpdating = True
.EnableEvents = True
End With

KeineFormeln:

End If

2:
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Dim Antwort As Integer, Zahl As Long If ActiveSheet.Name = "Tabelle3" Then On Error Resume Next Set rngBereich = Selection.SpecialCells(xlCellTypeFormulas) If Err = 0 Then Antwort = MsgBox("Möchtest du das Ergebnis der Formeln als Werte speichern ?" & _ vbLf & "gewählter Bereich: " & rngBereich.Address(0, 0), vbYesNoCancel + vbQuestion + vbDefaultButton2, "Frage") If Antwort > vbYes Then Exit Sub rngBereich.Value = rngBereich.Value Else MsgBox "Es gibt keine Formeln in der Selection!", vbInformation End If End If End Sub

Also ich hätte jetzt eher sowas vermutet, aber ich hab das ja jetzt nicht wirklich alles gelesen...
Die Abfrage ob ne Formel als Wert gespeichert werden soll, ohne dass man weiss worum es da geht erscheint mir schon suspekt, wie der ganze Code des TO



Dim wksThis As Worksheet

Dim rngToCheck As Range

Dim rngBereich As Range

Dim rngResult As Range

Dim rngCell As Range

Dim lngI As Long

Dim lngAntwort As Long

Dim iCalc As Integer

Dim blnCancel As Boolean

Dim lngFehler As Long



Set wksThis = ActiveSheet

Set rngToCheck = Tabelle7.Range("B2")



If rngToCheck = "" Then

    Exit Sub

End If



With Application

    iCalc = .Calculation

    .EnableEvents = False

    .Calculation = xlCalculationManual

End With



For lngI = 3 To wksThis.Columns.Count

    Set rngBereich = wksThis.Columns(lngI)

    lngFehler = 0

    On Error Resume Next

    Set rngResult = rngBereich.SpecialCells(xlCellTypeFormulas)

    lngFehler = Err

    On Error GoTo 0

    If lngFehler = 0 Then

        For Each rngCell In rngResult

            If rngCell > "" Then

                Application.Goto rngCell, True

                lngAntwort = MsgBox("Möchtest du das Ergebnis der Formeln auf Übersicht Ausgaben und Diagramm speichern ?", _

                          vbYesNoCancel + vbQuestion + vbDefaultButton2, "Frage")

                If lngAntwort = vbCancel Then

                    blnCancel = True

                    Exit For

                End If

                If lngAntwort = vbYes Then

                    rngCell = rngCell.Value

                End If

            End If

        Next

        If blnCancel Then Exit For

    Else

        Exit For

    End If

Next



With Application

    .Calculation = iCalc

    .EnableEvents = True

End With

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

vba problem

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread