Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:20:37
VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen
23.04.2024 08:04:28
4-fach verschachtelte WENN-Funktion
22.04.2024 22:36:13
Marko automatisch ausführen
22.04.2024 21:15:10
PQ - Wenn der Jahrgang fehlt, dann...
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro: zurück zur Ausgangszelle ?

Makro: zurück zur Ausgangszelle ?
10.03.2008 14:13:01
Flo
Hi,
gibt es eine Möglichkeit, jene Zelle, die gerade aktiv ist, abzuspeichern, damit Excel nach Beenden des makros wieder dorthin zurückspringen kann ?
Danke für Eure Hilfe,
F

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

Betreff
Datum
Anwender
Anzeige
AW: Makro: zurück zur Ausgangszelle ?
10.03.2008 14:17:00
Hajo_Zi
Hallo Flo,
verzichte auf select, das ist zu 99,9% nicht notwendig und Du hast das Problem nicht.

AW: Makro: zurück zur Ausgangszelle ?
10.03.2008 14:22:03
Flo
Hi,
scheint bei mir nicht so zu sein - wenn ich das select "auskommentiere", passiert gar nichts...

Sub Sort_List()
Dim wsquelle As Worksheet, wsziel As Worksheet, wscountry As Worksheet
Dim i As Integer, rng As Range, bereich As Range
Set wsquelle = Sheets("Mappings")
Set wsziel = Sheets("chosen item")
Set wscountry = Sheets("Welcome!")
Set bereich = wsquelle.Range("A1:a300")
i = 1
'Sheets("Mappings").Select
'    Range("A1").Select
For Each rng In bereich
If rng.Value = wscountry.Range("C5").Value Then
wsziel.Range("A" & i).Value = Range("B" & rng.Row).Value
i = i + 1
End If
Next
End Sub


Anzeige
AW: Makro: zurück zur Ausgangszelle ?
10.03.2008 14:29:00
Hajo_Zi
Hallo Flo,
welchen gRund sollte ich haben Deine Datei nachzubauen?

Option Explicit
Sub Sort_List()
Dim wsquelle As Worksheet, wsziel As Worksheet, wscountry As Worksheet
Dim i As Integer, rng As Range, bereich As Range
Set wsquelle = Sheets("Mappings")
Set wsziel = Sheets("chosen item")
Set wscountry = Sheets("Welcome!")
Set bereich = wsquelle.Range("A1:a300")
i = 1
'Sheets("Mappings").Select
'    Range("A1").Select
For Each rng In bereich
If rng.Value = wscountry.Range("C5").Value Then
wsziel.Range("A" & i).Value = Range("B" & rng.Row).Value
i = i + 1
End If
Next
Set wsquelle = Nothing
Set wsziel = Nothing
Set wscountry = Nothing
Set bereich = Nothing
End Sub


Gruß Hajo

Anzeige
AW: Makro: zurück zur Ausgangszelle ?
10.03.2008 14:33:00
Flo
... tja, wohl keinen: Das Makro funktioniert ja auch soweit- war als illustration gedacht.
Was mir jetzt noch fehlt, ist, dass der User nicht händisch zur Ausgangszelle zurückgehen muss.
Und wie gesagt, ohne das Select bekomme ich kein Ergebnis in "chosen item"
Danke und Gruss
F

AW: Makro: zurück zur Ausgangszelle ?
10.03.2008 16:40:00
Horst
Hi,
For Each rng In bereich
If rng.Value = wscountry.Range("C5").Value Then
wsziel.Range("A" & i).Value = wsquelle.Range("B" & rng.Row).Value
i = i + 1
End If
Next
mfg Horst

AW: Makro: zurück zur Ausgangszelle ? // THANNKS!!
12.03.2008 18:27:49
Flo
Super, danke

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige