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

Dateiname im VBA-Code

Forumthread: Dateiname im VBA-Code

Dateiname im VBA-Code
05.09.2006 09:49:25
Joe
Hallo zusammen ich habe da eine kleine Frage zu einem VBA-Code.
Kann ich den Pfad unten im VBA so einstellen das der Dateiname egal ist?
Wenn ich die Datei "Paramteams.xls" umbenenne läuft das Makro nicht mehr.
Workbooks.Add
Windows("Paramteams.xls").Activate
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateiname im VBA-Code
05.09.2006 09:53:03
ANdreas
Hallo Joe,
versuchs mal mit Thisworkbook
Gruß
Andreas
AW: Dateiname im VBA-Code
05.09.2006 10:04:31
joe
Hi Andreas,
danke für die schnelle Info.
Sorry aber ich kenne mich mit VBA nicht so gut aus.... wo soll ich "ThisWorkbook" einfügen?
Workbooks.Add
ThisWorkbook
'Windows("Paramteams.xls").Activate
so geht's nicht Smile
Anzeige
AW: Dateiname im VBA-Code
05.09.2006 10:07:21
Rudi
Hallo,
wenn du wieder auf dein Workbook mit dem Makro zurückwillst:
Thisworkbook.Activate
Gruß
Rudi
Als Gott mich schuf wollte er angeben.
AW: Dateiname im VBA-Code
05.09.2006 10:18:19
Joe
Upps hier noch ne kleine Frage:
Gibt es eine Möglichkeit Excel zu sagen er soll doch wenn er eine neue Mappe öffnet diese nicht MAPPE1 nennen sonder z.B. Müller oder Mappe 2 oder so?
Das Problem ist ich öffne mit meinem Makro eine neuen Mappe dumm ist nur wenn jemand das ganze schon mal gemacht hat funzt es nicht mehr.
Danke
Joe
ThisWorkbook.Activate
Range("M10:M65536").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Mappe1").Activate
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Anzeige
AW: Dateiname im VBA-Code
05.09.2006 10:34:45
Rudi
Hallo,
alles nur eine Frage der Reihenfolge und der Methodik.

Sub tt()
With ThisWorkbook.ActiveSheet
.Range(.Range("M10"), .Range("M65536").End(xlUp)).Copy
End With
Workbooks.Add
ActiveSheet.Range("C2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Gruß
Rudi
Anzeige
AW: Dateiname im VBA-Code
05.09.2006 11:08:45
Joe
Danke Rudi,
ich hab edas ganze jetzt eingebunden.
Rennt wie der Teufel... das Problem ist nur das er jetzt für jeden einzelnen Punkt des Makros immer ein neues Datenblatt öffnet.
Es war mein Fehler ich habe Dir nur einen Teil des Makros zukommen lassen hier nochmal ein etwas größerer Teil.
Excel muss ca. 15 Spalten exportieren.
Gibts da ne Lösung ? was muss ich in Deiner Formel ändern?
Danke
Joe
With ThisWorkbook.ActiveSheet
.Range(.Range("K10"), .Range("K65536").End(xlUp)).Copy
End With
Workbooks.Add
ActiveSheet.Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
With ThisWorkbook.ActiveSheet
.Range(.Range("M10"), .Range("M65536").End(xlUp)).Copy
End With
Workbooks.Add
ActiveSheet.Range("C2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Anzeige
AW: Dateiname im VBA-Code
05.09.2006 12:05:50
Rudi
Hallo,
Beispiel:

Sub tt()
Dim wksQuelle As Worksheet, wksZiel As Worksheet
Set wksQuelle = ThisWorkbook.ActiveSheet
Set wksZiel = Workbooks.Add.Sheets(1)
With wksQuelle
.Range(.Range("K10"), .Range("K65536").End(xlUp)).Copy
End With
wksZiel.Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
With wksQuelle
.Range(.Range("M10"), .Range("M65536").End(xlUp)).Copy
End With
wksZiel.Range("C2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Set wksQuelle = Nothing
Set wksZiel = Nothing
End Sub
Gruß
Rudi
Anzeige
AW: Dateiname im VBA-Code
05.09.2006 12:26:30
Joe
Abgefahren Danke geht jetzt ohen Probleme
Schönen Tag noch
Joe
geschlossen
05.09.2006 12:44:42
Schließer
AW: Dateiname im VBA-Code
05.09.2006 10:10:23
Joe
Ahhh Cool habes
es hat das Wörtchen Activate gefehlt . :-)
Oh mir ist noch ne Frage eingefallen wenn ich schon mal einen Fachmann an den Tasten habe.
Danke nochmal
Joe
Anzeige
AW: Dateiname im VBA-Code
05.09.2006 09:57:55
{mskro}
Hallo Joe,
um mit der Befehlszeile Windows("Paramteams.xls").Activate zu arbeiten, mußt du aber die Datei auch geöffnet haben, ansonsten mußt du mit Workbooks.open arbeiten.
Gruss Manfred
Rückmeldung wäre nett!
;

Forumthreads zu verwandten Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Fehler in VBA-Code?
David

Und nochmal Hallo.
Und schon wieder mit einem sehr "mysteriösen" Fehler:
Option Explicit Sub test() Dim zeile, i As Long Dim wks As Worksheet Dim wkb As Workbook Dim quelle As String For Each wkb In Workbooks If Right(wkb.Name, 4) = ".csv" And InStr(wkb.Name, "Pliste") > 0 Then que...
22.09.2008 12:14:00
Thread-ID: 1011440
5 Beiträge
Anzeige
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
Anzeige
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Code per VBA in "Diese Arbeitsmappe"
Timo

Hallo,
mir ist bekannt, wie ich per VBA ein neues Modul anlegen und eine Sub erzeugen kann.
Ich möchte nun aber per VBA eine sub in "Diese Arbeitsmappe" erzeugen und mit einer zweiten Prozedur wieder löschen.
Geht das?
Ich habe im Archiv nichts relevantes hierzu gefunden.
V...
29.10.2008 11:37:00
Thread-ID: 1020207
6 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Zeilenumbruch bei Formel in VBA Code
Waven

Hallo Zusammen
Ist es irgendwie möglich im VBA Code innerhalb einer Formel einen Zeilenumbruch zu machen?
Als Beispiel:
aus
Range("A1").Formula = "=SUMPRODUCT((B23:B40=1)*(Q23:Q40=1)*(O23:O40))+SUMPRODUCT((B23:B40=1)*(Q23:Q401)*(R23:R40=1)*(O23:O40))"
soll sowas wie
Ran...
25.11.2008 12:08:00
Thread-ID: 1027662
3 Beiträge
Kleines VBA Code Problem
maxx_1985

Hi Leute
Beim Ausfuehren dieses Codes dauert es eine Ewigkeit bis Excel fertig ist. Und es ruckelt ebenso ne Ewigkeit. Wie kann man das anders loesen? hat jemand ne idee?
danke
Sub Step2() 'delete zeros Dim i As Long For i = Cells(Rows.Count, 9).End(xlUp).Row To 1 Step -1 If Cells...
26.11.2008 20:42:00
Thread-ID: 1028150
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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