Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro-Code für Zeilenberechnung

Makro-Code für Zeilenberechnung
SH
Hallo,
kann mir jemand von den Profis kurz einen Gefallen tun? Ich brauch etwas wirklich Simples, habe aber von vba nicht die geringste Ahnung:
Ein Makro soll bei Aufruf die Zellenberechnung auf "automatisch" schalten, wenn sie auf "manuell" steht und auf "manuell", wenn sie auf "automatisch" steht. Ich habe vor dafür dann ein Tastaturkürzel zu vergeben (das schaff ich grad noch alleine :).
Ist jemand so nett und kann den entsprechenden Code reinstellen? Vielen vielen Dank!
SH

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro-Code für Zeilenberechnung
15.10.2010 18:40:12
mpb
Hallo,
Sub Berechnen_ein_aus()
If Application.Calculation = xlManual Then
Application.Calculation = xlAutomatic
Else
Application.Calculation = xlManual
End If
End Sub
Gruß
Martin
AW: Makro-Code für Zeilenberechnung
15.10.2010 19:15:43
SH
prima, herzlichen Dank!
AW: Makro-Code für Zeilenberechnung
15.10.2010 19:18:38
SH
hm, die Tastenkombination mit "Strg +" scheint nur mit Buchstaben zu funktionieren? Nicht mit Zahlen und auch nicht mit Umlauten? Das schränkt die Anzahl der möglichen Tastenkombinationen ja deutlich ein? Kann das sein?
AW: Makro-Code für Zeilenberechnung
16.10.2010 12:19:52
Tino
Hallo,
erstell diesen Code in DieseArbeitsmappe
kommt als Code in DieseArbeitsmappe 
Option Explicit 
 
Private Sub Workbook_Activate() 
    'Tastenkombination wird aktiviert 
    Application.OnKey "^ß", "Berechnen_ein_aus" 
End Sub 
 
Private Sub Workbook_Deactivate() 
    'Tastenkombination wird deaktiviert 
    Application.OnKey "^ß" 
End Sub
Das Zeichen ^ steht für Strg und ß der Buchstabe für die Tastenkombination, also Strg+ß
In einem normalen Modul stellst Du diesen Code ein.
kommt als Code in Modul 
Option Explicit 
 
Sub Berechnen_ein_aus() 
With Application 
  If .Calculation = xlManual Then 
      .Calculation = xlAutomatic 
  Else 
      .Calculation = xlManual 
  End If 
    MsgBox "Berchnung ist auf " & _
    IIf(.Calculation = xlAutomatic, "automatisch", "manuell") & " eingestellt", _
    vbInformation 
End With 
End Sub
Schau auch mal in der Hilfe unter Application.OnKey nach, da gibt es noch mehr Infos dazu.
Gruß Tino
Anzeige
AW: Makro-Code für Zeilenberechnung
16.10.2010 12:22:36
SH
vielen Dank - gibts einen besonderen Grund dafür warum Strg+Zahl nicht auf herkömmlichen Weg funktioniert? Eingeben kann ich ja sowohl Zahlen als auch Umlaute, nur funktionieren tuts dann ned...
müsstest mal bei MS nachfragen ;-) ...
16.10.2010 13:08:18
Tino
Hallo,
ich kann Dir dies nicht beantworten.
Gruß Tino

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige