Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
940to944
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
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

STRG + POS1 per VBA ?

STRG + POS1 per VBA ?
13.01.2008 13:27:34
Selma
Hallo Leute,
ich möchte in allen Arbeitsblätter der Datei die Tastenkombination STRG + POS1 ausführen.
Wie mache ich das per VBA?
Vielen Dank im Voraus.
Liebe Grüße,
Selma

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: STRG + POS1 per VBA ?
13.01.2008 13:35:00
Herby
Hallo Selma,
probiers mal so:

Private Sub CommandButton1_Click()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
Application.Goto Reference:=wks.Range("A1")
Next
End Sub


Viele Grüße
Herby

AW: STRG + POS1 per VBA ?
13.01.2008 13:43:35
Selma
Hallo Herby,
das Makro bleibt hier "Application.Goto Reference:=wks.Range("A1")" stehen.
LG
Selma

AW: STRG + POS1 per VBA ?
13.01.2008 14:02:55
Herby
Hallo Selma,
und so ?

Private Sub CommandButton1_Click()
Dim wks As Worksheet
Application.ScreenUpdating = False
For Each wks In ActiveWorkbook.Worksheets
wks.Activate
wks.Range("A1").Activate
Next
Application.ScreenUpdating = True
End Sub


Viele Grüße
Herby

Anzeige
läuft ohne Probleme ..
13.01.2008 17:32:00
Matthias
Hallo Selma
Beide Varianten von Herby laufen bei mir ohne Probleme
Code in die entsprechende Tabelle wo CommandButton1 eingefügt wird 'wenn Steuerelement Button

Option Explicit
Private Sub CommandButton1_Click()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
Application.Goto Reference:=wks.Range("A1")
Next
End Sub


Code in ein Modul 'wenn Formular Button


Option Explicit
Sub Schaltfläche1_BeiKlick()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
Application.Goto Reference:=wks.Range("A1")
Next
End Sub


Willst Du immer beim Wechsel in ein Tabellenblatt nach A1 siehe Beitrag von Hajo.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.Goto Reference:=Range("A1")
End Sub
Aber Achtung! das geht nur wenn es sich ausschliesslich um Tabellenblätter handelt.
Ist ein Diagramm dabei, so musst Du erst Abfragen, ob das Blatt ein Sheet oder ein Worksheet ist.
Sonst hängt sich der Code auf.
Userbild

Anzeige
Alles sind Sheets...
13.01.2008 23:29:00
{Boris}
Hi Matthias,
Ist ein Diagramm dabei, so musst Du erst Abfragen, ob das Blatt ein Sheet oder ein Worksheet ist.
Ich weiß zwar was Du meinst, aber ein WorkSheet ist Bestandteil der Sheets-Auflistung - und somit auch ein Sheet. Und ein Diagrammblatt ist ebenfalls ein Sheet.
Die Unterscheidung liefert z.B. der TypeName - Chart respektive Worksheet.
Grüße Boris

Das hab ich aber anders geschrieben ;o)
14.01.2008 18:41:00
Matthias
Hallo Boris
Der Text:
Ist ein Diagramm dabei, so musst Du erst Abfragen, ob das Blatt ein Sheet oder ein Worksheet ist, bezieht sich ja auf das Activate des Sheet und wenn das eben ein Diagramm ist und kein Worksheet, gibts eben einen Fehler(da es die Zelle A1 nicht gibt).
Nur darauf wollte ich hinweisen!
Ist doch eigentlich korrekt formuliert (find ich) ;o)
Ok, ich hätte schreiben können:
Ist ein Diagramm dabei, so musst Du erst Abfragen, ob das Sheet ein Worksheet ist.
Aber wie das gemeint war, weißt Du doch ;o)
Userbild
Userbild

Anzeige
Nochmals
15.01.2008 14:42:00
{Boris}
Hi Matthias,
Deine Formulierung ist falsch - und hat auch mit der Activate-Methode nix zu tun (ich sagte ja: Ich weiß, was Du meintest, aber Du hast es sachlich nicht korrekt formuliert):
Ist ein Diagramm dabei, so musst Du erst Abfragen, ob das Blatt ein Sheet oder ein Worksheet ist...
Ein Blatt ist immer ein Sheet - egal ob Diagrammblatt oder Tabellenblatt.
Die Formulierung muss also lauten:
Ist ein Diagramm dabei, so musst Du erst abfragen, ob es sich um ein Diagrammblatt oder ein Tabellenblatt handelt. Das kann man zum Beispiel mit der TypeName-Eigenschaft erledigen...
Grüße Boris

Anzeige
worksheets.select
13.01.2008 13:53:00
ransi
HAllo Selma
Versuche es mal so:
Option Explicit


Public Sub test()
'Dim alt As Worksheet
'Set alt = ActiveSheet
ThisWorkbook.Worksheets.Select
Worksheets(1).Activate
Range("a1").Select
'alt.Activate
End Sub

ransi

Anzeige
AW: STRG + POS1 per VBA ?
13.01.2008 14:05:00
Hajo_Zi
Hallo Selma,
warum muss man durchgehen, es reicht doch beim aktivieren?

Option Explicit
Private Sub Workbook_Activate()
Application.Goto Reference:=Range("A1")
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.Goto Reference:=Range("A1")
End Sub



AW: STRG + POS1 per VBA ?
13.01.2008 18:44:00
Selma
Hallo zusammen,
@Herby
Dein zweiter Code funktioniert.
@Matthias
Bei mir bleibt das Makro immer hier Application.Goto Reference:=wks.Range("A1") hängen.
Ich habe in der Datei keine Diagramme. Kann sein das ich ein oder anderen Verweis einschalten muss?
@ransi
Das Makro bleibt hier ThisWorkbook.Worksheets.Select hängen.
@Hajo
Dein Makro funktioniert auch.
Danke an ALLE !
Liebe Grüße,
Selma

Anzeige
AW: STRG + POS1 per VBA ?
13.01.2008 19:02:53
Gerd
Hallo Selma,
zu:
@ransi
Das Makro bleibt hier ThisWorkbook.Worksheets.Select hängen.
Wohl nur wenn Du Blätter ausgeblendet hast. Oder ?
Gruß Gerd

AW: STRG + POS1 per VBA ?
13.01.2008 19:37:00
Selma
Hallo Gerd,
das stimmt, ich hatte drei ausgeblendete Blätter.
LG
Selma

AW: STRG + POS1 per VBA ?
13.01.2008 19:45:00
Daniel
Hi
dann muss man es so erweitern:

Private Sub CommandButton1_Click()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
 if wks.visible = -1  then Application.Goto Reference:=wks.Range("A1")
Next
End Sub


Gruß, Daniel

Anzeige
AW: STRG + POS1 per VBA ?
13.01.2008 21:52:00
Selma
Hallo Daniel,
vielen Dank!
Also das hat nicht funktioniert, weil ich ausgeblendete Blätter in der Datei hatte. ;)
LG
Selma

AW: STRG + POS1 per VBA ?
13.01.2008 22:39:44
Daniel
Hi
yup, Zellen selektieren kann man immer nur im gerade aktiven Blatt, und ein ausgeblendetes Blatt kann man nicht aktivieren.
Gruß, Daniel

82 Forumthreads zu ähnlichen Themen

Im Range("A1:C15") anderes Cursor-Symbol?
Reinhardt

Hallo,
ist es möglich im Bereich Range("A1:C15") statt dem Kreuz ein Finger-, oder Pfeil Cursor-Symbol erscheinen zu lassen?
Gruß Reinhardt.
28.01.2009 09:25:00
Thread-ID: 1044456
2 Beiträge
Anzeige
VBA: rows.count benachbarte Zellen
rkak907

Hallo,
mal wieder eine Frage... Ich habe sagen wir mal 2 Spalten "A" und "B"!
Spalte "A" ist ausgefüllt, in "B" ist gar nichts. Ich möchte nun die Spalte "B" soweit nach unten markieren, wie Spalte "A" ausgefüllt ist.
Das heisst wenn Spalte "A" bis Zeile 15 etwas stehen hat, dann so...
20.04.2009 12:47:57
Thread-ID: 1069779
10 Beiträge
For Each zelle In Range("a2:a1000") erweitern
Karsten

Hallo,
Wenn ich diesen Befehl ausführe befinde ich mich gerade in Tabelle1. Ich möchte aber, dass u.s. Befehl in Tabelle2 ausgeführt wird. Kann mir jemand die Tabelle2 in den Befehl hineinkonstruieren.
Danke.
Gruß
Karsten
Dim zelle As Range
For Each zelle In Range("a2:a...
08.07.2009 10:59:35
Thread-ID: 1087125
3 Beiträge
Anzeige
Cells(Rows.Count, "A").End(xlUp).Row für Spalten
Moritz

Hallo,
es gibt folgenden Code:
Cells(Rows.Count, "A").End(xlUp).Row
Den man z.B. in einer For-Schleife verwenden kann, dass die Forschleife bis zum Ende des Dokuments läuft (Zeilen).
Wie muss ich den Code umschreiben, dass er nicht die Zeilen von unten nach oben zählt, sondern d...
11.09.2009 13:12:45
Thread-ID: 1102004
3 Beiträge
Befehl Range("A1") bei mehreren Zellen?
Christian

Hallo,
ich hab im Excel Ein Makro geschrieben, mit dessen hilfe per Knopfdruck eine Mail an einen bestimmten Empfänger gesendet wird. Im Betreff und Text sind bestimmte Zelleninhalte mit dem Befehl Range("A1")
Wie kann ich das machen, wenn ich mehrere Zelleninhalte hab (A1, A2, A3, A4....
05.10.2009 12:54:12
Thread-ID: 1107243
5 Beiträge
von Range("F:F") zu Range("aktive Spalte")
Range("F:F")

Hallo,
kann mir jemand aus fogenden code:
Range("F:F").Select
ActiveWindow.Zoom = True
Range("aktive Spalte").Select
ActiveWindow.Zoom = True
machen?
Gruß
Karsten
09.11.2009 21:17:58
Thread-ID: 1115647
7 Beiträge
Cells(Rows.Count, NewFilSpa + 7).End(xlUp) = 100
Hugo

Hallo
Cells(Rows.Count, NewFilSpa + 7).End(xlUp) = 100
Wie ereiche ich, dass der Wert 100 nicht in der letzten beschriebenen Zelle (wie Code oben)
sondern eine Zeile darunter eingefügt wird?
Besten Dank für eure Hilfe und Gruss
Hugo
13.12.2009 22:40:21
Thread-ID: 1123643
3 Beiträge
Range("A1:C1").copy Range("F6") schneller
born

Hallo,
gibt es eigentlich eine schicke Möglichkeit
Range("A1:C1").copy Range("F6")
ohne die Formate zu kopieren und genau so schnell und schlank?
Gruß und Dank,
Born
17.12.2009 15:39:37
Thread-ID: 1124697
3 Beiträge

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
9
2
1
2
4
6
2
2
2
2
4
6
1
5
14
6
1
2
2
8
2
6
7