Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
18.04.2024 08:06:05
Power Query Tabelle aus jeder Spalte erweitern?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
736to740
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
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Name einer AM aus Zelle eruieren u. aktivieren

Name einer AM aus Zelle eruieren u. aktivieren
23.02.2006 10:55:25
Josef
Hallo!
Ich würde bitte eine VBA Lösung suchen:
Ich habe in einer AM in H1 SU und in B1 2006 stehen.
Die erzeugte Datei würde in diesem Fall SU 2006 lauten.
Ich möchte nun mittels VBA in dieser AM ein Arbeitsblatt kopieren und in die im Hintergrund geöffnete Arbeitsmappe SU 2006.xls Tabelle3 kopieren.
Ungefähr so in dieser Art nur dieser Code funktioniert klarerweise nicht.

Sub Makro1()
Dim Name1
Dim Name2
Name1 = Workbooks("KVAB.xla").Worksheets("Daten").Range("H1")
Name2 = Workbooks("KVAB.xla").Worksheets("Daten").Range("B1")
Windows("KVAB.xla").Activate
Cells.Select
Selection.Copy
Name1 & " " & Name2.xls.Activate
ActiveSheet.Paste
End Sub

Gibt es hierfür bitte eine VBA Lösung?
Danke
Josef

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Name einer AM aus Zelle eruieren u. aktivieren
23.02.2006 11:02:29
u_
Hallo,
wirklich .xla?

Sub Makro1()
Dim Name1 As String
Dim Name2 As String
With Workbooks("KVAB.xla").Worksheets("Daten")
Name1 = .Range("H1")
Name2 = .Range("B1")
.Cells.Copy Destination:= _
Workbooks(Name1 & " " & Name2 & ".xls").Sheets("Tabelle3").Range("A1")
End With
End Sub

Gruß
Geist ist geil!
AW: Name einer AM aus Zelle eruieren u. aktivieren
23.02.2006 11:07:34
Josef
Hallo u_!
Danke für Deine Antwort.
Ja wirklich eine xla.
Mam kann ja mit VBA ein Addin auf False setzen und dann könnte ich ja die gewünschte Seite kopieren oder liege ich hier falsch?
Josef
AW: Name einer AM aus Zelle eruieren u. aktivieren
23.02.2006 11:22:24
Josef
Hallo u_!
Danke für Deine Lösung.Habe es gerade getestet. würde alles passen.
nur habe ich vergessen zu erwähnen. dass ich nicht das Blatt "Daten" sondern das Blatt "Feiertage" in die Tabelle3 kopieren möchte.
Josef
Anzeige
AW: Name einer AM aus Zelle eruieren u. aktivieren
23.02.2006 11:34:13
u_
Hallo,

Sub Makro1()
Dim Name1 As String
Dim Name2 As String
With Workbooks("KVAB.xla")
With .Worksheets("Daten")
Name1 = .Range("H1")
Name2 = .Range("B1")
End With
.Sheets("Feiertage").Cells.Copy Destination:= _
Workbooks(Name1 & " " & Name2 & ".xls").Sheets("Tabelle3").Range("A1")
End With
End Sub
Gruß
Geist ist geil!
AW: Name einer AM aus Zelle eruieren u. aktivieren
23.02.2006 11:06:08
Klaus
Hi,

Sub Makro1()
Dim Name1
Dim Name2
Name1 = Workbooks("KVAB.xla").Worksheets("Daten").Range("H1").Value
Name2 = Workbooks("KVAB.xla").Worksheets("Daten").Range("B1").Value
Workbooks("KVAB.xla").Activate
Sheets("Tabelle3").Select
Sheets("Tabelle3").Copy Before:=Workbooks(Name1 & " " & Name2 & ".xls").Sheets(1)
Name1 & " " & Name2 & ".xls".Activate
End Sub

So sollte es funktionieren.
Gruss
Klaus
Anzeige
AW: Name einer AM aus Zelle eruieren u. aktivieren
23.02.2006 11:19:58
Josef
Hallo Klaus!
Danke für Deine Antwort
Habe gerade testen wollen.
Beim reinkopieren Deines codes erscheint diese Zeile rot.
Name1 & " " & Name2 & ".xls".Activate
Danke
Josef
AW: Name einer AM aus Zelle eruieren u. aktivieren
23.02.2006 11:38:56
Klaus
Sorry,
es muss natürlich so lauten:
Workbooks(Name1 & " " & Name2 & ".xls").Activate
Gruss
Klaus
AW: Name einer AM aus Zelle eruieren u. aktivieren
23.02.2006 12:00:31
Josef
Danke Klaus!
Jetzt passt es.
Josef

301 Forumthreads zu ähnlichen Themen

makro markierung von Zeilen nach oben und unten
Zeilen

Hallo liebe Excel-Gemeinde,
ich weiss dass es schon viele Beiträge zum Thema "Löschen von Zeilen nach einer Bedingung" gibt, aber ich habe nach langer Suche keine Lösung bzw. Ansatzpunkt gefunden.
Problembeschreibung:
Ich brauche ein Makro, dass in der Spalte 2 nach 2 verschiedenen...
12.09.2008 08:37:02
Thread-ID: 1009273
3 Beiträge
Anzeige
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Zeile automatisch nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
03.12.2008 08:43:00
Thread-ID: 1029673
5 Beiträge
Anzeige
SVERWEIS springt ungewollt Zeile nach unten
Christoph

Hallo Zusammen,
ich hänge an einem ganz seltsamen Problem und komme nicht dahinter woran es liegen könnte.
Benutze folgenden S-Verweis:
=WENN(SVERWEIS(E22;'Gebühren-Stammdaten_Berech.'!$D$11:$AH$47;31;FALSCH)=0;"";SVERWEIS(E22; 'Gebühren-Stammdaten_Berech.'!$D$11:$AH$47;31;FALSCH))...
07.02.2009 18:17:24
Thread-ID: 1048114
3 Beiträge
Durchsuchen und in Zelle daneben ersetzen
Holger

Hallo,
irgendwie komme ich nicht weiter. Ich möchte mit einem Makro die Spalte "A1:A5000" nach der
Zeichenfolge "SV" durchsuchen und überall wo "SV" gefunden wird in der Zelle rechts daneben
(also in der gleiche Zeile in Spalte "B") das Datum "01.01.2008" eintragen.
Ein Ansat...
26.02.2009 12:25:07
Thread-ID: 1054317
4 Beiträge
cursor am anfang eines textfeldes einer UF setzen
Holger

Hallo liebe Excelgemeinde,
ich versuche verzweifelt den cursor beim öffnen einer UF an den anfang einer Textbox zu plazieren und bekomme es nicht hin.
zu erklärung
in die textbox werden über userform_initialized daten geladen
textbox ist mit scrollbars versehen um daten ansehen...
10.03.2009 23:42:17
Thread-ID: 1058894
9 Beiträge
Leerzeile zählen-nach unten
robert

hi,
kann man-siehe datei- leere zeilen nach unten zählen?
z.B. A6 bis A10 ist leer-sind 5 leerzeilen
in B5 soll 5 stehen
gruß
robert
https://www.herber.de/bbs/user/60378.xls
17.03.2009 09:26:21
Thread-ID: 1061001
3 Beiträge
Zahl in Spalte finden und dann Zelle Aktivieren
Hans

Hallo Leute ich habe ein Problem das ich nicht gelöst bekommen.
Ich möchte in Spalte A:A einen Wert suchen der in der Variable "Zahl" steht.
Ist der Wert gefunden soll die gefundene Zelle mit "ActiveCell.Select" aktiviert werden
Wird der Wert nicht gefunden soll die erste leere Stel...
08.04.2009 10:45:33
Thread-ID: 1067641
4 Beiträge
Anzeige

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
2
13
4
4
8
2
3
8
2
3
4
18
1
4
2
2
10
17
11
2
4
5
4
11
2