Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1388to1392
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
1388to1392
1388to1392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einfacher Befehl

Einfacher Befehl
06.11.2014 18:27:27
Manuel Schöttler

Hallo Leute,
wie programmiere ich es, da bei einer Tastenkombination das Makro wie folgt ausgeführt wird?
Wert(A1)+Wert(B1) = soll geschrieben werden in C1
Das ganze soll dann bis A22 bzw B22 gelten? Also quasi zwei Werte aus einer Tabelle in eine Zelle schreiben?
Das Makro soll auf explizit für jede Arbeitsmappe ausführbar sein?
Ich wäre euch sehr dankbar,
MfG

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einfacher Befehl
06.11.2014 18:33:12
Hajo_Zi
Makro in die Personal.XLSB
=Range("C1:C22").Formula="=A1+B1"

AW: Einfacher Befehl
06.11.2014 19:18:24
Manuel Schöttler
Okay, danke.
Wie muss ich das personal XLSB verstehen?
Gruß Manuel

AW: Einfacher Befehl
06.11.2014 19:21:50
Hajo_Zi
das ist Deine Persönliche Arbeitsmappe in der alle Makros sind die in allen Dateien gelten.
Ich glaube ich habe personal.XLSB geschrieben.
Gruß Hajo

Benutze FORUMS- nicht BEITRAGSLISTE, ...
06.11.2014 19:28:21
Luc:-?
…Manuel,
damit du alle AWen siehst! Anderenfalls muss ich annehmen, dass du mir nicht antworten willst! :-/
Luc :-?

Anzeige
AW: Benutze FORUMS- nicht BEITRAGSLISTE, ...
06.11.2014 19:49:41
Manuel Schöttler
Sorry, habe den Überblick bei den Antworten verloren.
Also ich habe verschiedene Reiter in meiner Excel Datei.
In jeder Datei sollen die Zeilen
A1 und B1 zusammenaddiert werden und in C1 geschrieben werden.
das gleiche mit:
A2 und B2 in C2
.
.
.
A20 B20 in C2
Dabei soll er sich immer auf die Daten aus dem Aktuellen Reiter beziehen..
Ich hoffe, ich habe es nun besser beschrieben.
Vielen Dank.
Gruß M.

Lies meine untere AW, ...
06.11.2014 20:03:13
Luc:-?
…Manuel,
das fktioniert immer im jeweils aktuellen Blatt der Mappe. Wenn keine weiteren Mappen betroffen sind, benötigst du auch keine Personal.xlsb (das hattest du - wie alles andere auch - missverständlich ausgedrückt!).
Du musst nur noch den ProzedurKopf und -Fuß ergänzen, die ganze Prozedur in ein normales Modul eintragen und anschließend in Xl unter Ansicht - Makros das Makro auswählen und unter Optionen die TastenKombi (und ggf eine Beschreibung) eintragen.
Luc :-?

Anzeige
Außerdem gehört schon was dazu, bei gerade-...
06.11.2014 20:08:58
Luc:-?
…mal 2 (zwei!) AWen die Übersicht zu verlieren, Manuel,
oder hast du etwa auch Crossposting betrieben… |:-/
Luc :-?

AW: Außerdem gehört schon was dazu, bei gerade-...
06.11.2014 20:14:13
Manuel Schöttler
Ne, aber das Forum hier ist anders aufgebaut als andere.
Danke

Unklar! Wenn du eine TastenKombi zum ...
06.11.2014 18:53:03
Luc:-?
…Aufruf des Makros angegeben hast, Manuel,
wird es auch bei ihrer Eingabe ausgeführt. Der Rest ist dann Sache des Makros, das selbstverständlich als vollständige SubProzedur geschrieben wdn sollte und nicht nur als „einfacher Befehl“!
Desweiteren ist unklar, was nun tatsächlich in C1:C22 geschrieben wdn soll — A1+B1, =A1+B1, zahl1+zahl2, =zahl1+zahl2 oder gleich nur das Ergebnis der Addition:
Cells(1, 3) = Cells(1, 1) + Cells(1, 2)
Für C1:C22 muss das natürlich zyklisch gestaltet wdn, für die letzte Variante zB so: 
Const adRelBer$ = "A1:C22"
Dim relBer As Range, xZ As Range
Set relBer = Range(adRelBer)
For Each xZ In relBer.Rows
xZ.Cells(3) = xZ.Cells(1) + xZ.Cells(2)
Next xZ
Set relBer = Nothing
Gruß, Luc :-?
Besser informiert mit …

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige