AW: Zahl aus anderer Datei importieren
27.08.2021 22:56:18
Basti
Also ich habe jetzt eine etwas konkretere Frage zum selben Problem, zwischen den beiden geststrichelten Linien erstmal:
Sub String_in_ReNrListe_Schreiben_und_ReNr_in_Angebot_Schreiben()
' dieses Makro steht in Datei Rechnung.xls, auf dessen Makros die Datei Ang(n).xls zugreift!
Dim ersteLeere As Long
'Zeilennr der ersten leeren Zelle nach letzter gefüllter Zelle in Tabelle1 Spalte A
Dim Betr As String
'Speicher für Inhalt von Zelle F20
Dim RelPfad As String
'Pfad zum Ordner mit Datei Rechnung für indirekte Ordner- Adressierung
Dim Zei As Long
Dim ReNr As String
Dim Kd As String
Dim Dateiname As String
RelPfad = Application.ThisWorkbook.Path
' Pfad zu Ordner mit AngNr(n).xls Datei
Dateiname = ActiveWorkbook.Name
'Text von BETREFF steht in Zelle F20
Betr = Range("F20")
'Inhalt von Zelle F20 nach Betr schreiben
MsgBox (Dateiname & " " & Betr)
' => Dateiname ist eine Datei aus Unter-Ordner "ReVerz", das ist richtig
ActiveWorkbook.Open
'Fehler!!! da workbook ist bereits geöffnet(?)
'hier müsste ich jetzt von der Angebotsdatei zur ursprünglich
erzeugenden Rechnungs-Datei wechseln
'da testweise die RechnungsNrListe als Blatt "Mahnung" in der Rechnung.xls angelegt ist
Sheets("Mahnung").Select
'es klappt nicht, hiermit nun die ReNrListe anzusprechen
ersteLeere = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row
'= ZeilenNr der ersten leeren Zelle unter letzter gefüllter Zelle
MsgBox "Die erste freie Zeile ist " & ersteLeere
'dieser Befehl ist richtig programmiert
Range("A" & ersteLeere) = Betr
'speichere den Inhalt von Betreff in 1. leere Zelle von Spalte A der Tabelle "Mahnung"
Zei = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row
'Zei - 1 = ZeilenNr der letzten beschriebenen Zelle in Spalte A
'in Rechnungsnummernliste sichern:
Kd = Rows(Zei - 1).Cells(1)
'weise "Kunde" den letzten vergebenen Dateinamen in Spalte A der ReNrListe zu
[G179] = Range("E" & Zei - 1)
'die fortlaufenden Re-Nr sind in Spalte E gelistet
ReNr = Mid(Range("G179").Value, 4)
'verkürze Inhalt von Zelle G179 vorne um 3 Stellen
Worksheets("Rechnung").Select
'Blattname anpassen
[A5] = ReNr
'schreibt ReNr in Zelle A5 von Tabelle "Rechnung" der Datei Rechnung.xls
MsgBox ("tiefste beschr. ZeilenNr: " & Zei - 1 & " / DateiName: " & Kd & " / ReNr: " &_ ReNr & " und A5=" & Range("A5"))
ActiveWorkbook.Save
End Sub