Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
548to552
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
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte in neue Mappe speichern und einlesen

Werte in neue Mappe speichern und einlesen
18.01.2005 21:57:25
Michael
hallo,
ich habe eine rechnungsvorlage erstellt aus dem sollen bestimmte zellenwerte in eine neue mappe (Alle Rechnungen)kopiert werden. beim aufrufen soll dann die rechnungsnummer um 1 erhöt werden. ich bin jetzt so weit das ich die daten innerhalb meiner mappe übergebe und auch hoch zähle (siehe unten). ich weiß aber überhaubt nicht wie ich das nun mit einer neuen arbeitsmappe machen soll. hoffe das mir da jemand weiterhelfen kann. schon mal danke im voraus.
mfg
michael
übergeben:
--------------------------------
Dim lastRow As Long
With Sheets("Alle Rechnungen")
lastRow = IIf(.Range("A65536") "", 65536, .Range("A65536").End(xlUp).Row + 1)
.Cells(lastRow, 1) = Sheets("Rechnung").Range("B17")
.Cells(lastRow, 2) = Sheets("Rechnung").Range("E15")
.Cells(lastRow, 3) = Sheets("Rechnung").Range("A7")
.Cells(lastRow, 4) = Sheets("Rechnung").Range("A8")
.Cells(lastRow, 5) = Sheets("Rechnung").Range("A10")
.Cells(lastRow, 6) = Sheets("Rechnung").Range("B15")
.Cells(lastRow, 7) = Sheets("Rechnung").Range("E43")
End With
hoch zählen:
-------------------------
Worksheets("Alle Rechnungen").Activate
Range("A65536").End(xlUp).Copy
Worksheets("Rechnung").Activate
Range("B17").Select
ActiveSheet.Paste
ActiveCell.Value = ActiveCell.Value + 1

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte in neue Mappe speichern und einlesen
18.01.2005 23:21:35
Christoph
Hallo Michael,
hier ein Ansatz, wie du eine neue Mappe (Datei) erzeugst, Werte übergibst und die Datei speichern kannst:
Gruß
Christoph

Option Explicit
Sub NewFile()
Dim wkb As Workbook, wks As Worksheet
Set wks = ThisWorkbook.Sheets("Rechnung")
Set wkb = Workbooks.Add                      'neue Datei erzeugen
Application.ScreenUpdating = 0
Application.DisplayAlerts = 0                'wenn ungefragt überschrieben werden soll
With wkb
.Sheets("Tabelle1").Range("A1") = wks.Range("A1")  'übertrag Werte
'...usw...
.SaveAs "D:\Hallo.xls"                             'neue Datei speichern
.Close                                             'neue Datei schließen (ohne erneutes speichern)
End With
Application.DisplayAlerts = 1
Application.ScreenUpdating = 1
End Sub
Anzeige
AW: Werte in neue Mappe speichern und einlesen
19.01.2005 15:22:16
Michael
Danke Christoph für die antwort hat gut geklappt. Kannst du mir noch einen ansatz nennen, wie ich die neue datei noch wieder einlese. Wenn machbar als eigenes blatt in meiner vorlage.
mfg
michael
AW: Werte in neue Mappe speichern und einlesen
19.01.2005 15:22:47
Michael
Danke Christoph für die antwort hat gut geklappt. Kannst du mir noch einen ansatz nennen, wie ich die neue datei noch wieder einlese. Wenn machbar als eigenes blatt in meiner vorlage.
mfg
michael
Werte aus anderer Datei in diese Datei
19.01.2005 21:05:05
Christoph
Hallo Michael,
prinzipiell kannst das mit Formeln machen à la: ='D:\Test\[Mappe1.xls]Tabelle1'!$A$1, wobei du dir die jeweilige Zeile ebenso mit einer Formel berechnen kannst.
Aber um bei VBA zu bleiben hier der folgende Ansatz: (Ansatz, weil zB. ohne Fehlerbfangung)
Gruß
Christoph
('ne Rückmeldung wäre nett)

Option Explicit
Sub HolWerte()
Dim strFull as String, strFile as String
Dim wks As Worksheet
strFull = "D:\Test\Mappe1.xls"
strFile = Right(strFull, Len(strFull) - InStrRev(strFull, "\"))
Set wks = ThisWorkbook.Sheets.Add(, Sheets(Sheets.Count))
Application.ScreenUpdating = 0
Workbooks.Open strFull
With Workbooks(strFile).Sheets("Tabelle1")
wks.Range("A1") = .Range("A1")
'...usw...
End With
Workbooks(strFile).Close 0
Application.ScreenUpdating = 1
End Sub
Anzeige

228 Forumthreads zu ähnlichen Themen

Zahlen einer Tabelle in Userform einlesen
Josef

Guten Morgen!
Ich habe in einem Arbeitsblatt mehrere Tabellen.
In einer UserForm habe habe ich 460 TextBoxen, wobei die Zählung immer pro Reihe senkrecht erfolgt.
Spalte 1 = TextBox1-23, Spalte2 = TextBox24- TextBox46 usw.
Ich möchte nun z.B. die erste Tabelle in die Textboxen e...
20.08.2008 07:07:03
Thread-ID: 1003059
19 Beiträge
Anzeige
Erweiterung eines Makros wg. Einlesen von Daten
Daten

Guten Morgen, kann man das Makro
Sub tt() Dim Zei As Long, Werte, W As Integer, Spa As Long For Zei = 30 To Range("A" & Rows.Count).End(xlUp).Row If InStr(Cells(Zei, 1), Chr(124)) > 0 Then Werte = Split(Cells(Zei, 1), Chr(124)) For W = LBound(Werte) To UBound(Werte) If Len(Werte(W)...
14.10.2008 08:20:04
Thread-ID: 1016214
9 Beiträge
Inhalt einer Webseite einlesen
Richard

Hallo,
ich hätt' da mal folgende Frage
Private Sub CommandButton1_Click() ThisWorkbook.FollowHyperlink "htt p://de.wikipedia.org/wiki/Hallo_Welt" End Sub
21.10.2008 11:22:37
Thread-ID: 1017906
5 Beiträge
Anzeige
Kein Textvergleich nach Einlesen aus TXT
sunni

Hallo da draußen :-),
ich habe ein Problem, an dem ich mir echt die Zähne ausbeiße:
Ich habe (über VBA) aus einer TXT Daten in Excel eingelesen. Die Zahlen konnte ich "verwendbar" machen, indem ich diese mit 1 multipliziert habe. Aber der Text wird nicht als Text erkannt.
Hintergrun...
30.10.2008 14:29:00
Thread-ID: 1020611
4 Beiträge
Aktuellen Pfad in Variable einlesen
Daniel

Hallo Excel-Götter,
ich als VBA-Dummie darf mich mit einem schönen Makro-Problem befassen:
Ich arbeite mit einem Excel-File, das Auswertungen aufgrund von Daten in einem 2.File macht. Beide Files liegen im gleichen Ordner auf meinem Rechner. Das ganze wurde erstellt von meinem Vorgänger...
07.11.2008 06:58:19
Thread-ID: 1022480
6 Beiträge
VBA ExcelDateinamen und Arbeitsblattnamen einlesen
MarkusL

Hallo,
gibt es per VBA eine Möglichkeit alle Excel Dateien eines Verzeichnisses inkl. der jeweils enthaltenen Arbeitsblattnamen einzulesen (der Name der Exceldatei sollte ohne .xls ausgegeben werden), so dass nachfolgendes Ergebnis erzeugt wird:
Dateiname.......Arbeitsblattname
Date...
16.11.2008 15:07:00
Thread-ID: 1024906
5 Beiträge
Namen in Array einlesen und an Fkt. übergeben
adrian

Hi,
bin mir hierbei nicht ganz sicher ob das so klappt.
Möchte mit dier Funktion ("SearchOEM"), die ein Namen ("OEMName") zurückgibt, falls in einem Bereich ("ODMArea") ein Suchname ("ODMName") vorkommt.
Die Namen die diese Fkt. zurückgibt möchte ich in einem Array Speichern und an...
19.01.2009 13:06:00
Thread-ID: 1041390
4 Beiträge
Wert einer Zelle einlesen ?
Gerd

Halo!
Habe ein Problem bei dem ich nicht weiterkomme und bitte um Eure Hilfe.
Ich lese über VBA die letzte beschriebene bzw. erste freie Zeile in einer Tabelle aus in die ich dann schreibe. Ich hätte gerne daß VBA sich einen Wert, in dieser Zeile Spalte N merkt, ohne daß ich aber ein M...
03.02.2009 16:59:57
Thread-ID: 1046719
7 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
18
1
8
4
6
3
5
4
3
6
2
5
5
9
1
2
6
6
4
3
8
8
1
6
6