Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1000to1004
1000to1004
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Script um auf jeden Blatt eine Zelle zu markieren

Forumthread: Script um auf jeden Blatt eine Zelle zu markieren

Script um auf jeden Blatt eine Zelle zu markieren
22.08.2008 15:11:53
Eddie
Hallo, ich habe eine eigentlich ganz einfache sache, aber irgendwie ruft wohl eher das WE in meinen Kopf :-)
Ich will eigentlich nur ein kleinen VBA Code ... der in jeden vorhandenen Tabellenblatt die Zelle A1 markiert
Vielleicht kann mir jemand da etwas sagen ?
gruß Eddie

Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Script um auf jeden Blatt eine Zelle zu markieren
Ramses
Hallo
Wozu soll das gut sein ?

Sub Mark_A1()
Dim i
For i = 1 to worksheets.count
worksheets(i).Range("A1").select
next i
End Sub


Gruss Rainer

AW: Script um auf jeden Blatt eine Zelle zu markieren
22.08.2008 15:16:00
Eddie
Danke ... wozu .. damit man wenn man bei vielen Tabellenblättern immer am anfang von A1 startet möchte, und nicht irgendwie auf Zelle R77 oder so

Anzeige
geht so irgenwie nicht
22.08.2008 15:19:18
Eddie
Leider gibt es Fehler bei Worksheets(i).Range("A1").Select :-(

AW: geht so irgenwie nicht
22.08.2008 15:26:00
Tino
Hallo,
kommt als Code in DieseArbeitsmappe

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("A1").Select
End Sub


Gruß Tino

AW: geht so irgenwie nicht
22.08.2008 15:46:57
Eddie
@ TINO ... soll das jetzt in jedes der 40 Tabellenblätter ?
Gibts denn nicht vielleicht eine ganz einfache Lösung ? .... ich will ja auch nur die A1 makierung wenn ich das makro starte .. nicht wenn ich auf das TB klicke

Anzeige
kommt als Code in DieseArbeitsmappe
22.08.2008 15:51:07
Tino
Hallo,
hier rein und auch nur einmal!
Userbild
Gruß Tino

AW: kommt als Code in DieseArbeitsmappe
22.08.2008 16:19:00
Tino
Hallo,
eine weitere Möglichkeit kann ich dir noch anbieten.
Mit Application.OnKey, ist auch in der Excel Hilfe beschrieben.


In Diese Arbeitsmappe als Code


Private Sub Workbook_Activate()
Application.OnKey "{F12}", "StartSelection"
End Sub
Private Sub Workbook_Deactivate()
Application.OnKey "{F12}"
End Sub


In ein Modul


Sub StartSelection()
Range("A1").Select
End Sub


Im Code kannst du erkennen, dass ich die Taste F12 verwende um dieses Makro zu starten.
Die eigentliche Funktion die F12 auslöst wird aber in dieser Datei aufgehoben, du kannst dir eine andere Taste raussuchen (siehe VBA Excel Hilfe).
Gruß Tino

Anzeige
AW: geht so irgenwie nicht
22.08.2008 15:54:27
Tobias
Hallo Eddie!
Mir ist zwar nicht klar, warum Du select'en möchtest aber ist mir auch egal. Hilft Dir dieser Quellcode weiter?

Sub A1Select()

Dim sht As Worksheet



For Each sht In Worksheets

    sht.Range("A1").Select

Next



End Sub








Schönen Gruß, Tobi
http://www.vba-blog.de/

Anzeige
..hätte ich doch...
22.08.2008 15:57:35
Tobias
...den ganzen Post gelesen. Vergiß einfach was ich geschrieben hab.

AW: geht so irgenwie nicht
22.08.2008 15:58:32
Horst
Hi,
setzen 6!
Probie sowas aus, eh du solch einen Blödsinn verbreitest.
mfg Horst

AW: geht so irgenwie nicht
22.08.2008 16:07:00
Eddie
so bekomme ich auch einen Laufzeitfehler 1004!!

Anzeige
AW: geht so irgenwie nicht
22.08.2008 16:14:00
Tobias
Ich weiß. Nimm die Lösung von Tino. Die sollte funktionieren.
Das Problem an dem Code ist, dass man auf einem nicht aktivierten Sheet nicht selekten darf. 

Sub A1Select()
Dim sht As Worksheet
For Each sht In Worksheets
sht.Activate
sht.Range("A1").Select
Next
End Sub


würde gehen. Aber wie gesagt, nimm die Lösung vom Tino und vergiß meine.
Gruß, Tobi
http://www.vba-blog.de/

Anzeige
AW: Script um auf jeden Blatt eine Zelle zu markieren
22.08.2008 20:04:00
Case
Hallo,
nur noch als Ergänzung :-)
Falls Du ganz auf "Select" verzichten möchtest, kannst Du folgenden Code verwenden. Das "Application.Goto" hat natürlich auch seine Vor- und Nachteile. Steht aber in der VBA Hilfe ausführlich beschrieben:

Option Explicit
Public Sub Test()
Dim intCount As Integer
With ThisWorkbook
For intCount = 1 To .Worksheets.Count
Application.Goto .Worksheets(intCount).Range("A1") ', scroll:=True
Next intCount
Application.Goto .Worksheets(1).Range("A1")
End With
End Sub


Servus
Case
VBA VB.NET Blog
RSS Feed

Anzeige
worst case
22.08.2008 21:43:34
würg
w
;

Forumthreads zu verwandten Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Eingabe formatiert zurückgeben (Komma und Punkt)
Lemmi

Hallo zusammen,
ich möchte Euch eine wahrscheinlich einfache Frage stellen, die ich mir gerade mal nicht beantworten kann!
Wie stelle ich sicher das auch wenn ein Punkt als Trennzeichen eingegeben worden ist, am Ende immer ein Komma in der Zelle steht?
Eingabe 10,0........Ausgabe...
07.08.2008 21:35:00
Thread-ID: 1000105
5 Beiträge
Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Wenn-Formel und Drop-down Menü
Tommy

Hallo,
ich habe ein Problem.
Ich möchte immer dann, wenn ich einen Wert im Drop-down Menü auswähle, dass eine bestimmte Zelle gelöscht wird. Ein vereinfachtes Beispiel seht Ihr im Anhang.
https://www.herber.de/bbs/user/54449.xls
Danke & Gruss
Tommy
08.08.2008 14:41:00
Thread-ID: 1000304
3 Beiträge
Wert aus Combobox zurückgeben in Textboxen
Peter

Hallo wertes Form
bin kurz vor der Vollende meinesWerkes
benötige aber noch die Hife aus dem Forum
Ich habe eine Combox19, die beim öffnen die 5000-26000 in 100 Steps an zeigt
Wenn ich den wert 0 bis 6999 eingebe soll in einer Textbox27 der wert 130 ausgegeben werden.
ab dem...
10.08.2008 20:06:00
Thread-ID: 1000671
7 Beiträge
Makro ohne Pfadbezug erstellen.
George

Hallo,
Ich würde gerne eine Analysefunktion mit immer gleichem Zellenbereich in verschiedenen Dateien (immer gleicher Aufbau) per Makro ausführen. Wenn ich eine neue Datei öffne, will sich das böse Makro immer auf den Pfad der Datei beziehen, mit der das Makro erstmalig erstellt wurde. Ande...
11.08.2008 08:46:50
Thread-ID: 1000712
3 Beiträge
Monat eingeben und dann
Kurt

Guten Morgen Zusammen,
ich möchte gern in der Zelle "C1" eine Zahl eingeben, z.b. 8, dann soll
in der Zelle C2 der Monat erscheinen u. zwar das ENDE 8 = 31.08.2008,
geht das ?
mfg Kurt
11.08.2008 09:53:00
Thread-ID: 1000728
6 Beiträge
Anzeige
Verketten von Text und Datumswerten
Text

Hallo!
Ich möchte eine eindeutige ID erstellen lassen und dazu eine vierstellige Zahlenfolge mit dem Datum / der Uhrzeit verketten.
Etwa so: =verketten(B2;" ";jetzt())
in B2 steht eine vierstellige Zahlenfolge z.B. 1234 Als Datumswert nutze ich TT.MM.JJJJ hh:mm.
Leider wird das...
11.08.2008 12:30:00
Thread-ID: 1000804
4 Beiträge
CommondButton Namen zuweisen
Frank

Hallo Ihr lieben Excelfreunde!!!
Kurze Frage: in einer Tabelle befinden sich einige Steuerelemente - CommandButton's", diesen würde ich gern definierte Namen zuweisen. Beispiel: CommandButton1 soll mit dem Inhalt der Zelle AP1 beschriftet sein, CommandButton 2 mit dem Inhalt der Zelle AP2 u...
11.08.2008 13:10:00
Thread-ID: 1000824
4 Beiträge
Anzeige
3 Zellen zu 1ner 3-Zeiligen (wieAlt+Enter) machen
Horst_H

Hallo!
Meine Frage: In Spalte C steht eine Straßenbezeichnung, in Spalte H ein Kommentar und in Spalte I ein zweiter Kommentar. Nun möchte ich per VBA (weil ich viele Mappen unterschiedl. Länge und unterschiedlicher Stadtteile habe) erreichen, dass zusätzlich in die jeweilige Zelle in Spal...
11.08.2008 16:07:27
Thread-ID: 1000899
10 Beiträge
Excel mit DropDown Menü und Aktualisierung
ML

Hallo,
beschäftige mich nochnet lange mit Excel und habe folgende Frage:
Ich will mir auf einem Tabellenblatt auf dem ich mehrere Produkte aufgelistet habe untereinander, in der Zelle oben wo Artikelnummer steht, mir ein DropDown-Menü erstellen, in dem alle Artikelnummern aufgelistet si...
11.08.2008 17:17:00
Thread-ID: 1000925
5 Beiträge
Kombinationen mit Zurücklegen ohne Reihenfolge
Christian

Hallo zusammen,
ich suche eine VBA Lösung für folgende Aufgabe:
Gezogen werden "k" Kugeln aus einer Los-Trommel. Die Trommel enthält "n" Kugeln. Die gezogenen Kugeln werden anschließend zurückgelegt. Gesucht sind die möglichen Kombinationen der Ziehungen. Dabei kommt es nicht auf die Re...
11.08.2008 22:53:00
Thread-ID: 1001022
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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