ein Hallo zu Beginn und ein Gruß am Ende läst den Beitrag doch gleich viel freundlicher aussehen. Auch wenn Du den Beitrag am Computer eingibst sitzen an der anderen Seite doch Leute und keine Maschinen die Deine Frage beantworten und da sollte Zeit für die paar Worte doch vorhanden sein.
manchmal hilft auch ein Blick in die Recherche
https://www.herber.de/forum/archiv/4to8/t6290.htm
Gruß Hajo
tut mir echt leid. Ich dachte, Ihr legt Wert auf eine präzise Kurzfassung des Problems. Ich werde mich diesbezüglich bessern.
Schöne Grüße
Edeltraud
ich habs grade ausprobiert. Funktioniert super!! Du kannst Dir nicht vorstellen, wie lange ich nach dieser Lösung gesucht habe.
Nochmals vielen herzlichen Dank.
Schöne Grüße
Edeltraud
geht die Methode ConvertFormula auch von Absolut zu Relativ?
Ich habs grade ausprobiert, aber die relativen Bezüge schieben sich ständig um mehrere Adressen weiter runter. Es wird nicht einfach das $-Zeichen weggelassen.
Schöne Grüße
Edeltraud
ich würde schreiben L.Vira ihren code wie folgt ändern.
Gruß Hajo
vielen Dank für den Tipp. Das hat leider nicht so geklappt, wie ich mir das vorgestellt hatte, aber ich bin diesmal mit der Recherche fündig geworden.
Das mit der Recherche ist wirklich so eine Sache. Wenn man die falschen Begriffe eingibt, nützt alles nichts. Ich habe wirklich lange gestöbert. Da ich jetzt den Befehl kenne, nach dem ich suchen muß, geht alles viel einfacher.
Sub absolut()
Set conRange = Selection.SpecialCells(Type:=xlFormulas)
For i = 1 To conRange.Areas.Count
conRange.Areas(i).Formula = _
Application.ConvertFormula _
(Formula:=conRange.Areas(i).Formula, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
Next
End Sub
Sub relativ()
Set conRange = Selection.SpecialCells(Type:=xlFormulas)
For i = 1 To conRange.Areas.Count
conRange.Areas(i).Formula = _
Application.ConvertFormula _
(Formula:=conRange.Areas(i).Formula, _
FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, ToAbsolute:=xlRelative)
Next
End Sub
Schöne Grüße und danke für die Hilfe!!
Edeltraud
Um in Excel mehrere Zellen absolut zu setzen, kannst Du die folgenden Schritte befolgen:
Zellen auswählen: Markiere die Zellen, die Du in absolute Bezüge umwandeln möchtest.
VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Neues Modul einfügen: Klicke im Menü auf Einfügen und dann auf Modul.
Code einfügen: Kopiere und füge den folgenden Code in das Modul ein:
Sub AbsoluteBezüge()
Dim c As Range
For Each c In Selection
If c.HasFormula Then
c.Formula = Application.ConvertFormula(c.Formula, xlA1, , xlAbsolute)
End If
Next
End SubMakro ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle AbsoluteBezüge aus und klicke auf Ausführen.
Mit diesem Makro setzt Du alle Formelbezüge in den ausgewählten Zellen auf absolut.
Fehler: Makro funktioniert nicht oder gibt eine Fehlermeldung aus.
Fehler: Bezüge werden nicht korrekt umgewandelt.
Es gibt verschiedene Methoden, um in Excel die Adressierung absolut zu setzen:
Excel Tastenkombination: Du kannst eine einzelne Zelle durch Drücken von F4 in einen absoluten Bezug ändern. Dies funktioniert jedoch nur für die aktuell ausgewählte Zelle.
Formel manuell ändern: Du kannst das $-Zeichen manuell in der Formel setzen. Zum Beispiel wird aus A1 \$A\$1.
Anpassung über den Namen Manager: Du kannst auch über den Namen Manager (unter Formeln -> Namens-Manager) Bezugnahmen ändern, allerdings ist dies weniger effizient für mehrere Zellen.
Angenommen, Du hast eine Formel wie =A1+B1 in Zelle C1. Um diese in einen absoluten Bezug zu ändern:
=\$A\$1+\$B\$1.F4 verwendest, während die Zelle ausgewählt ist, wird ebenfalls das $-Zeichen hinzugefügt.Du kannst mit dem VBA-Makro mehrere Zellen gleichzeitig ändern, was viel Zeit spart, wenn Du viele Formeln hast.
.xlsm-Format, um die Makros zu behalten.F4-Taste effektiv, um schnell zwischen relativ und absolut zu wechseln.1. Wie kann ich alle Zellen absolut setzen ohne F4?
Du kannst das oben genannte VBA-Makro verwenden, um alle Zellen gleichzeitig in absolute Bezüge umzuwandeln.
2. Funktioniert das auch in Excel Online?
Das VBA-Makro funktioniert nur in Desktop-Versionen von Excel, nicht in Excel Online. Du musst die Formeln manuell anpassen oder alternative Methoden verwenden.
3. Kann ich auch relative Bezüge zurücksetzen?
Ja, Du kannst den folgenden VBA-Code verwenden, um die Bezüge wieder zurück auf relativ zu setzen:
Sub RelativBezüge()
Dim c As Range
For Each c In Selection
If c.HasFormula Then
c.Formula = Application.ConvertFormula(c.Formula, xlA1, , xlRelative)
End If
Next
End SubDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen