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

Mit VBA Workbooks identifizieren

Forumthread: Mit VBA Workbooks identifizieren

Mit VBA Workbooks identifizieren
23.04.2008 20:43:00
Christian
Hallo zusammen,
mit einem kurzen VBA-Code exportiere ich ein Tabellenblatt als csv-File. Das klappt auch schon ganz gut, so lange nur die Arbeitsmappe offen ist, aus der das Makro gestartet wird. Sind mehr Mappen offen, dann kommt es zu verwechslungen und der Code steigt aus. Eine Beispieldatei inkl. Code liegt hier:
https://www.herber.de/bbs/user/51811.xls.
Es wär cool, wenn jemand eine Idee hätte, wie ich auch mehrere geöffnete Arbeitsmappen gezielt mit VBA ansprechen kann.
Besten Dank und Viele Grüße,
Christian

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Mit VBA Workbooks identifizieren
23.04.2008 20:52:00
Ramses
Hallo
WO treten Verwechslungen auf ?
Ansonsten müsste das zumindest so heissen
Sheets("csv-File").Copy Before:=Newbook.Sheets(1)
Gruss Rainer

AW: Mit VBA Workbooks identifizieren
23.04.2008 21:59:39
Christian
Hallo Rainer,
wie Daniel richtig erkannt hat treten die Verwechslungen auf, weil ich den INDEX verwende, um die Workbooks anzusprechen. Bei mehreren offenen Arbeitsmappen vertauscht Excel den INDEX willkürlich und für mich nicht mehr steuerbar.
Danke und Viele Grüße
Christian

Anzeige
AW: Mit VBA Workbooks identifizieren
23.04.2008 21:04:00
Daniel
Hi
es gibt mehrere Möglichkeiten ein Workbook zu referenzieren, unteranderem über:
- feste VBA-Begriffe: THISWORKBOOK und ACTIVEWORKBOOK
- Objektvariablen (wenn ich das Workbook einer solchen zugewiesen habe)
- den Workbook-Namen: Workbooks("Tabelle1.xls")
- die Index-Nummer: Workbooks(1)
du wendest alles mal an, quer durcheinander.
das Problem kommt dann bei der INDEX-Variante, da bei mehreren geöffneten Workbooks Excel selbst entscheidet, welches Workbook welche Index-Nummer bekommt.
um eindeutig zu sein, sollte man immer die Variablen- oder die Workbook-Namenvariante nehmen.
opitimert auf die Variablenvariante sieht dein Code so aus:

Option Explicit
Sub csv_export()
Dim Dateiname As String
Dim csv_name As String
Dim Jahr As String
Dim wbQuelle As Workbook
Dim wbNeu As Workbook
Set wbQuelle = ActiveWorkbook
Jahr = Right(wbQuelle.Sheets("nebenberechnungen").Range("A1").Value, 4)
Dateiname = Year(Date) & "." & Format(Month(Date), "00") & "." & Day(Date) & "_SONST_" & Jahr &  _
".csv"
Set wbNeu = Workbooks.Add
wbQuelle.Sheets("csv-File").Copy Before:=wbNeu.Sheets(1)
csv_name = Application.GetSaveAsFilename(Dateiname, FileFilter:="CSV (Trennzeichen-getrennt) _
(*.csv), *.csv")
If csv_name = False Then
MsgBox "CSV wurde nicht gespeichert."
Else
wbNeu.Sheets("csv-File").SaveAs Filename:=csv_name, FileFormat:=6, CreateBackup:=False,  _
Local:=True
SendKeys "^s~~%dcn"
End If
End Sub


Außerdem solltest du dringend unter EXTRAS-OPTIONEN das Häkchen bei "Variablendeklaration erforderlich" setzen.
das Zwingt dich, alle variablen zu deklarieren und vermeidet damit viele schwer auffindbare Fehler, die durch Tippfehler entstehen können.
Gruß, Daniel

Anzeige
AW: Mit VBA Workbooks identifizieren
23.04.2008 21:56:00
Christian
Hallo Daniel,
Danke für die einleuchtende Erklärung. Das Problem mit dem INDEX habe ich schon erkannt, aber nach mehreren fehlgeschlagenen Versuchen Variablen durchgehend zu verwenden, wusste ich nicht mehr weiter ;-)
Mit der Deklaration stehe ich auch noch auf Kriegsfuss. Dein Code funktioniert bei mir nur, wenn ich die Variable csv_name nicht als String deklariere, also wenn da nur "Dim csv_name" steht. Das zu verstehen ist aber "nice to have". Hauptsache es funktioniert.
Viele Grüße
Christian

Anzeige
AW: Mit VBA Workbooks identifizieren
23.04.2008 22:39:00
Daniel
Hi
ok, habe ich übersehen.
das Problem mit csv_str liegt daran, daß du diese Variable mal als String und mal als Boolsche Variable (wahr/falsch) verwendest.
ändere die IF-Abfrage mal so ab:

If csv_name = "Falsch" Then

,
dann kannst du csv_name als String deklarieren.
mit der Variablendeklaration bzw den Variablentypen solltest du dich durchaus etwas beschäftigen, eine saubere Variablendeklation ist der erste Baustein zum erfolgreichen Programmieren.
Gruß, Daniel

Anzeige
AW: Mit VBA Workbooks identifizieren
23.04.2008 22:50:00
Christian
Super, danke nochmals. Klingt logisch...
Prädikat: sehr hilfreich!
;

Forumthreads zu verwandten Themen

If...Then... bei verschiedenen Bedingungen?
Vic

Hallo zusammen
Ich habe folgendes Problem und weiss nicht, wie ich das über mein Marko gelöst bekomme:
In der Spalte "H" habe ich diverse Werte (zwischen 0 und X) und in der Spalte "K" ebenfalls. Nun möchte ich, dass es in der Spalte "L" eine "0" ausgibt, wenn "H" den Wert Null hat und...
13.08.2008 15:00:00
Thread-ID: 1001553
5 Beiträge
VBA - If Anweisung mehrerer Abfragen
Jana

Hallo liebes Forum!!
Ich stehe gerade komplett (mal wieder auf dem Schlauch)!..
Ich habe einen umfangreichen VBA-Code mit Arrays. Nun möchte ich, dass in der Spalte 3 geguckt wird, ob die Zahl 2,3,7,9,11 oder 13 in dieser Zelle steht. Ist einer dieser Zahlen vorhanden, dann soll eine Va...
11.09.2008 12:06:28
Thread-ID: 1009072
3 Beiträge
Dateiformat nicht erkennabar (VBA)
Richard

hallo
hab da ein vba-skript, das beim unteren der beiden Zeilen eine Fehlermeldung bringt:
CreateObject("Scripting.FileSystemObject").CopyFile "C:\Program Files\" & Dateiname_neu, "C:\Program Files\Kopie.txt", True
Workbooks.OpenText FileName:="C:\Program Files\Kopie.txt" _
02.10.2008 19:52:02
Thread-ID: 1013959
2 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Anzeige
VBA Script in andere Tabellen
Jörg

Hallo,
mich würde mal interessieren, ob es möglich ist, das Script einer Tabelle öffentlich für andere Tabellen zu machen. Derzeit ist es so, wenn ich das Makro in anderen Tabellen anwende, öffnet sich erst die Tabelle in der das Makro drin steht. Kann man das umgehen?
Für Eure Hilfe vi...
14.01.2009 11:42:23
Thread-ID: 1039546
16 Beiträge
if then interiorcolor
serge

Hallo Leute
ich möchte dass wenn die angeklicke Zelle Rot ist mein Makro ablauft (es können verschiedene Zellen sein.
Ich habe es mit:
Private Sub Worksheet_selectionChange(ByVal Target As Range) If Target.Interior.ColorIndex = 3 Then "mein makro" End If End Sub
unter anderem...
21.01.2009 22:45:00
Thread-ID: 1042391
15 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge
Anzeige
If und else in Label.caption
Leon

Hi Zusammen
Was mache da falsch, daß Range I11 immer angezeigt wird obwohl nichts drin steht. Falls Range I11 grösser als 0 dann I11 zeigen ansonsten H11.
Private Sub userform_initialize() If Sheets("Wesentlichkeit").Range("I11") >= 0 Then Label20.Caption = Sheets("Wesentlichkeit")...
31.01.2009 22:28:06
Thread-ID: 1045773
3 Beiträge
VBA Projekt in andere Arbeitsmappe einbauen
abu

Hallo Zusammen,
Fileupload: https://www.herber.de/bbs/user/59303.xls
In dieser Arbeitsmappe ist ein VBA-Projekt das ansich gut funktioniert. Nun moechte ich dieses Projekt in eine andere Arbeitsmappe integrieren und statt fuer jede Zeile einen Button (habe in der hochgeladenen Mappe al...
10.02.2009 13:34:05
Thread-ID: 1049049
5 Beiträge
Anzeige
VBA Abfrage mit Schleife
Ico

Hallo,
ich habe folgendes "Problem". Ich habe zwei Spalten mit diversen Werten.
Spalte A enthält nummerischer Werte
Spalte B enthält nummerische Werte mit Wildcards (*)
Es soll nun aus Spalte A der erste Werte genommen werden und via Like mit den Werten aus Spalte A verglichen w...
12.02.2009 16:30:00
Thread-ID: 1050153
6 Beiträge
Andere Schreibweise für Formel in VBA
MAS

Einen wunderschönen guten Abend,
ich muss in einem Tabellenblatt einige Formeln per VBA erzeugen.
Mit Hilfe des Makrorecorders müsste ich diesen String erzeugen - die Formel ist allerdings nur recht schwer lesbar
Würde gerne schöne Zellbezeichnungen angeben - was muß ich denn dazu...
04.03.2009 16:56:56
Thread-ID: 1056514
5 Beiträge
Anzeige
Zugriff auf Zellen in anderer Tabelle mit Indirekt
Florian

Hallo,
ich hab mal wieder ein Problem, bei dem ich nicht weiterkomme.
Ich möchte, dass man in die Tabelle die Adresse einer Zelle eingibt, und dann der Wert dieser Zelle übernommen wird.
Die Zelle, deren Wert übernommen werden soll, liegt aber in einer anderen Tabelle (gleiche Mappe...
06.03.2009 21:27:57
Thread-ID: 1057475
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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