Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Fixierung von Zellen

Betrifft: Fixierung von Zellen von: Tim Völker
Geschrieben am: 19.08.2004 12:14:31

Hallo

Ich habe ein Problem:
Ich habe eine Tabelle mit ganz viele Verknüpfungen zu einer anderen Tabelle.
Ich habe die Zelle fixiert,d.h.
=$C$4
so zum Beispiel.

Jetzt will ich aber diese Fixerungen herausnehmen, und zwar für alle Zellen (ca. 100 Stk.)
Ist das möglich mit einem Befehl oder so, oder muss ich in jede einzelne Zelle gehen und die $ herausnehmen ??

MFG

Völker

  


Betrifft: AW: Fixierung von Zellen von: Jens
Geschrieben am: 19.08.2004 12:20:23

Hallo Tim!

Hiermit änderst du Bezüge wie du lustig bist:
Markiere den Bereich und los geht's ;-))

Grüße,
Jens


Sub Bezugsarten_ändern()

Dim c As Range
Dim i As String

i = InputBox(prompt:="Geben Sie bitte die gewünschte Bezugsart ein:" & Chr(10) & _
     "1 = relativ, 2 = absolut," & Chr(10) & _
     "3 = Spalte absolut / Zeile relativ, 4 = Spalte relativ /Zeile absolut", Title:="Änderung der Formel-Bezugsart", _
    Default:="2")
    
ActiveSheet.Unprotect
    
With Application
  .ScreenUpdating = False
  .Calculation = xlManual
End With

Select Case i

Case Is = 1
For Each c In Selection
If c.HasFormula = True Then
c.Formula = Application.ConvertFormula(c.Formula, FromReferenceStyle:=xlA1, ToReferenceStyle:=xlA1, ToAbsolute:=xlRelative)
End If
Next

Case Is = 2
For Each c In Selection
If c.HasFormula = True Then
c.Formula = Application.ConvertFormula(c.Formula, FromReferenceStyle:=xlA1, ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
End If
Next

Case Is = 3
For Each c In Selection
If c.HasFormula = True Then
c.Formula = Application.ConvertFormula(c.Formula, FromReferenceStyle:=xlA1, ToReferenceStyle:=xlA1, ToAbsolute:=xlRelRowAbsColumn)
End If
Next

Case Is = 4
For Each c In Selection
If c.HasFormula = True Then
c.Formula = Application.ConvertFormula(c.Formula, FromReferenceStyle:=xlA1, ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsRowRelColumn)
End If
Next

End Select

With Application
.ScreenUpdating = True
.Calculation = xlAutomatic
End With

'ActiveSheet.Protect

End Sub



 

Beiträge aus den Excel-Beispielen zum Thema "Fixierung von Zellen"