(02.04.2017, 11:50)Käpt schrieb: es ist in Deinem 3.Bild klar zu erkennen., daß Du Dich noch im Entwicklwermodus befindest.
Schalte ihn aus.
Danke. Ich stelle nichts um, zwischen den 1. beiden Bildern und dem 3. Bild. Entwicklermodus - wie kann ich den deaktivieren? Diesen Menüpunkt habe ich gar nicht:
http://www.computerwissen.de/office/exce...alten.html
(02.04.2017, 11:54)BoskoBiati schrieb: ich kann absolut nicht verstehen, wo Dein Problem liegt. Wenn ich diese beiden Codes in eine Datei einbaue, lande ich am Ende auf Tabelle2 und A1 ist ausgewählt.
Also hier nochmal die Datei:
#2xLaufen.xlsm (Größe: 50,06 KB / Downloads: 16)
Oder auch Codegetrennt:
#2xLaufen.xlsx (Größe: 29,7 KB / Downloads: 5)
+
2xLaufen.bas.txt (Größe: 1,6 KB / Downloads: 7)
Ziel:
Ich möchte, dass Zelle A1 markiert(Umrandung, wo unten rechts so ein Viereck ist) ist, nachdem ich die Erstellen-Sub ausführe. Und zwar auch, wenn ich die Erstellen-Sub 2x hintereinander ausführe(per Play-Button im VBA-Editor). Also 1x Play-Button drücke auf Erstellen-Sub. Und wenn sie durchgelaufen ist, nochmal Play-Button drücken. Nach JEDEM Durchlauf, soll A1 augewählt sein in Tabelle1.
Ergebnis:
Es passiert aber folgendes(wichtig ist, dass man in Excel nichts anklickt(keine Zelle anwählt), nur im VBA-Editor)Ausnahme*:
1. Ich öffe die Datei & Tabelle1 A1 ist markiert(Umrandung von A1 wo unten rechts so ein Viereck ist). *Ausnahme: Wenn das nicht so sein sollte, dann A1 mal so markieren:
2. Ich starten den VBA-Editor & klicke bei der Erstellen-Sub auf Play(nicht per F8 ausführen, dann tritt das Verhalten nicht auf).
3. Ich wähle unten Excel an & sehe, dass A1 nicht markiert ist(kein grüner Rand wo unten rechs so ein Viereck ist). Es ist KEIN Feld markiert:
Vielleicht wichtig, "Konrollkästchen 1" ist anders angewählt als, wenn ich rechts Maustaste darauf klicken würde, dann sähe es so aus:
4. Ich klicke wieder auf den Play-Button im VBA-Editor.
5. Ich wähle Excel an & sehe, dass A1 angewählt ist in Tabelle1.
Code:
Sub Erstellen()
Dim varSheets As Variant
Dim Dateiname As String
varSheets = Array("Tabelle1", "Tabelle2")
Dateiname = Worksheets("Tabelle1").Range("B50").text
ThisWorkbook.Sheets(varSheets).Copy
Application.DisplayAlerts = False
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\" & Dateiname, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled
.Close
End With
Application.DisplayAlerts = True
Call Zellenwahl
End Sub
Code:
Sub Zellenwahl()
Workbooks("#2xLaufen.xlsm").Activate
Worksheets("Tabelle1").Select
Range("A1").Select
Range("B1").Select
Range("A1").Select
Cells(1, 1).Select
Application.Goto Range("Tabelle1!A1")
Worksheets("Tabelle1").Range("A1").Select
Sheets("Tabelle2").Select
Sheets("Tabelle1").Select
End Sub