Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1104to1108
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
1104to1108
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inputbox zur Dateisuche

Inputbox zur Dateisuche
Christopher
Hallo Leute,
ich habe ein Makro mit dem ich Daten aus einer Tabelle aus Jul09.xls in eine andere Tabelle in Berlin.xls kopieren kann.
Sub Artikelnummer_kopieren_Kraft()
Windows("Jul09.xls").Activate
Sheets("KRAFTREG ").Select
Range("B10:B79").Select
Selection.Copy
Windows("Berlin.xls").Activate
Sheets("Kraft").Select
Range("$B10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Nun wäre es super wenn man eine InputBox einbauen könnte, die es ermöglicht die markierte Zeile variabler zu gestalten. Im August kommt eben eine neue Datei Aug09.xls. Also sollte die Inputbox fragen aus welcher Datei sollen Daten kopiert werden (?) und dann gibt man eben den Monat/die gewollte Datei an.
Vielen Dank an alle die sich die Zeit nehmen!
Gruß
Christopher

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

Betreff
Benutzer
Anzeige
oder ist das nicht möglich?
23.09.2009 09:53:41
Christopher
Wäre auch schon für diesen Hinweis dankbar!
AW: oder ist das nicht möglich?
23.09.2009 10:25:51
Bowl
Guten Mogen,
ungetestet, müsste aber eigentlich funktionieren:
Erstell eine Textbox:
und dann den Inhalt einer Variablen zuweisen:
tmp = textbox1.text
dann noch die Endung
tmp2 = tmp1 + "09.xls"
Windows(tmp).activate
Des ganze einfach an den Anfang deiner Sub
und dann muss in die Textbox nur noch der Monat eingetragen werden
Grüße
AW: oder ist das nicht möglich?
23.09.2009 10:48:25
Christopher
Vielen Dank schon mal! Leider bin ich noch absoluter Anfänger.. Und bei Textbox war ich leider noch nicht während meiner Recherchen.
Sub aktuelle_Kosten_kopieren_Kraft()
tmp1 = textbox1.Text
tmp2 = tmp1 + "09.xls"
Windows("tmp1").Activate
Sheets("KRAFTREG ").Select
Range("F10:F75").Select
Selection.Copy
Windows("Berlin.xls").Activate
Sheets("Kraft").Select
Range("$D10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Könntest du mir auch noch sagen was ich über deine Anweisungen setzen muss?
Vielen vielen Dank!
Christopher
Anzeige
AW: oder ist das nicht möglich?
23.09.2009 10:56:53
Christopher
Sorry falsch reinkopiert! Das habe ich jetzt im Programm!
Sub aktuelle_Kosten_kopieren_Kraft()
tmp1 = "Datei wählen"
tmp2 = tmp1 + "09.xls"
Windows("tmp2").Activate
Sheets("KRAFTREG ").Select
Range("F10:F75").Select
Selection.Copy
Windows("Berlin.xls").Activate
Sheets("Kraft").Select
Range("$D10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Dort zeigt er mir den Fehler ein. (Laufzeitfehler '9' Index außerhalb des gültigen Bereichs) Allerdings öffnet sich vorher auch kein Feld in das ich etwas schreiben könnte...
Anzeige
AW: oder ist das nicht möglich?
23.09.2009 11:24:55
Bowl
Hallo,
zunächst einmal muss die Zeile 
Windows(tmp2).Activate

lauten, also ohne "
Dann noch ne Frage:
Du sagst es soll sich ein Feld öffnen - für die Eingabe der Inputbox/Textbox?
Oder soll diese schon die ganze zeit auf einem bestimmten Tabellenblatt vorhanden sein?
Grüße
AW: oder ist das nicht möglich?
23.09.2009 11:32:25
Christopher
Im Endeffekt wäre es egal ob sich eine Inputbox öffnet oder ob man den Dateinamen in ein vorhandenes Feld schreibt. Wichtig ist nur das die Mappe in die kopiert wird immer gleich ist (siehe Ausgangspost Berlin.xls) während die zu beziehenden Spalten in unterschiedlichen Dateien zu finden sind. (jul09.xls, Apr09.xls usw.)
Wenn ich mein Makro aktiviere möchte ich bestimmen aus welcher Datei er die Spalten beziehen soll.
Vielen Dank Bowl!!
Gruß
Christopher
Anzeige
AW: oder ist das nicht möglich?
23.09.2009 11:36:53
Bowl
Ob dein restliches Makro funktioniert weiß ich jetzt nicht, arbeite ja nur bis zu dem
Windows(blablabla).activate
Mein Lösungsvorschlag:
tmp = InputBox("Bitte geben Sie den Monat ein aus dem Werte kopiert werden sollen:", "XYZ")
tmp2 = tmp1 + ".xls"
Windows(tmp2).Activate
Grüße
Bowl
Funktioniert!!
23.09.2009 11:48:53
Christopher
Vielen vielen Dank Bowl!
War ja auch eigentlich gar nicht so schwer. ;-) Man muss halt als Anfänger erst eine neue "Fremdsprache" lernen. Macht aber auch Spaß sich mit dem ganzen auseinander zusetzen.
Nochmal vielen Dank und Spaß beim lösen anderer Probleme!
Gruß
Christopher
Anzeige

62 Forumthreads zu ähnlichen Themen

Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge
Anzeige
Per Userform oder Inputbox Daten selektieren
Bernd


Hallo Freaks,
ich habe im Archiv gesucht, aber leider nichts gefunden.
Ich suche ein Makro, in das ich per Userform (oder Inputbox?) einen Begriff (Namen) eingebe, dann VBA in das Tabellenblatt 1 geht, in Spalte G den Suchbegriff (Namen) sucht und dann als Ergebnis der Suche die...
05.02.2009 17:06:43
Thread-ID: 1047434
3 Beiträge
VBA DateFormat zu String convertieren
MBorn

Guten Morgen,
weiß jemand, wie man ein Datum, das im DateFormat (als Zahl) vorliegt
in das Textformat (yyyy-mm-dd) konvertiert. Sodaß das Ergebnis ein Text ist?
sodaß beispielsweise aus der Zahl 39868 das Text-Datum "2009-02-24" wird?
Herzlichen Dank,
Born
18.03.2009 12:59:43
Thread-ID: 1061376
12 Beiträge
Anzeige
VBA InputBox
Einzel

Hallo,
habe folgenden CODE
Sub Bemerkung() Dim Eingabe As String Dim erg% Text = InputBox("Bitte geben Sie einen Wert für ein:", "Dateneingabe:") Range("B6").Value = Text End Sub
Nun möchte ich aber, das wenn in z.B. B6 schon was steht er den Inhalt in z.B. B7 einträgt. usw.
...
18.06.2009 14:21:23
Thread-ID: 1082593
3 Beiträge
per VBA viele Diagramm-Datenreihen formatieren
Bernd

Guten Abend allerseits,
ich habe es tatsächlich geschafft, in ein Diagramm 235 Datenreihen mit Diagrammtyp xlXYScatterLines einzubinden. Nun suche ich eine Lösung, um diese Datenreihen in einer bestimmten Art und Weise zu formatieren. Händisch viel Arbeit, deswegen möchte ich die Datenreihe...
23.08.2009 19:49:55
Thread-ID: 1098037
5 Beiträge
VBA Inputbox Type Parameter Problem
Bernhard

Liebes Forum,
bislang (Excel 2003) war es möglich eine Variable aus einer Inputbox auszulesen und mit Type:=0 konnte man außerhalb der Inputbox auf eine Zelle klicken - die Zelladresse wurde dann in die Inputbox übernommen und konnte ausgewertet werden.
Beispiel:
str_cell_input =...
20.01.2010 15:00:09
Thread-ID: 1131397
4 Beiträge
VBA Datum in INPUTBOX in Tabelle suchen
Klaus

Nachdem ich nun seit einigen Stunden das Forum durchforstet habe, gehen mir langsam die Suchbegriffe aus. Daher frag ich jetzt einfach einmal......
Ich habe (mal wieder) so eine Tabelle mit einer Zinsstaffel. In Spalte B steht immer die Valuta oder eben das Buchungsdatum.
Ich hab mir be...
22.04.2010 16:03:34
Thread-ID: 1153334
2 Beiträge
VBA: textbox afterupdate format Datum
Bernd

Hallo zusammen,
irgendwie bekomme ich das nicht richtig hin, vielleicht kann mir jemand behilflich sein und den Code berichtigen.
Hier mein Code, der nicht funktioniert:
Private Sub TextBox5_AfterUpdate() 'TextBox5 = format(CDbl(TextBox5), "TT.MM.JJJJ") End Sub Vielen Dank im...
03.06.2013 19:44:47
Thread-ID: 1316131
3 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox InputBox

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