Werte aus anderer Datei einlesen??

Hallo zusammen!
Habe mein Problem schon mal hier zur diskussion gebracht, aber irgendwie komme ich nicht weiter, deshalb versuche ich dieses Porblem nochmals darzustellen und hoffe das irgendjemanden etwas dazu einfällt. Also folgendes Problem:
Ich habe eine Datei "Kostenstellen", diese befindet sich im folgenden Verzeichnis:
D:\Eigene Dateien\Kostenstellen.xls
In dieser Datei befindet sich ein Tabellenblatt mit dem Namen "Kostenstellen"
In der Spalte A in diesem Tabellenblatt befinden sich Zahlen von 1000 bis 10000.
In der Spalte B in diesem Tabellenblatt befinden sich die dazugehörigen Namen.
Jetzt habe ich eine weitere Datei "BAB.xls", diese befindet sich im folgenden Verzeichnis:
D:\Eigene Dateien\BAB.XLS
In der Datei "BAB.xls" können sich bis zu 30 Tabellenblätter befinden (variiert). In jedem Tabellenblatt steht in der Zelle B1 ein Wert zwischen 1000 und 10000. Per Makro soll nun die Zelle B1 in jedem Tabellenblatt der Datei BAB.xls mit der Spalte A des Tabellenblattes "Kostenstellen" in der Datei Kostenstellen.xls verglichen werden.
Gibt es eine Übereinstimmung soll der entsprechende Name aus dem Tabellenblatt "Kostenstellen" in die Zelle C1 des entsprechenden Tabellenblattes der Datei "BAB.xls" übernommen werden.
Gar nicht so einfach zu beschreiben. Ich hoffe ihr könnt mir folgen und weiterhelfen. Es wäre wirklich schön wenn dieses mit einem Makro gemacht werden könnte.
Schönen Gruß
ralle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Peter!
Das versenden der einzelnen Tabellenblätter (mit Outlook)
geht mit nachfolgendem Code.
Es kann aber beim versenden zu Problemen kommen, wenn
z.B. Outlook nicht reagiert!
In dem Makto ist deshalb eine Wartezeit eingebaut, die
auf Outlook wartet um Fehler zuvermeiden.

' **************************************************************
' Modul: Modul1 Typ = Allgemeines Modul
' **************************************************************
Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub BlattKopierenUndVersenden()
'alle Tabellenblätter als Arbeitsmappe
'im Temporären Ordner speichern, als
'Anlage mit Outlook versenden und anschliesend löschen
'Empfängeradresse steht in "D1" der jeweiligen Tabelle
Dim wks As Worksheet
Dim strAddress As String
Dim strPath As String
Dim strName As String
Dim strFile As String
strPath = "C:\Temp\" 'Pfad des Temporären Ordners
Application.ScreenUpdating = False
On Error GoTo FEHLER
For Each wks In ThisWorkbook.Sheets
With wks
strName = wks.Name 'Tabellenname
strFile = strPath & strName & ".xls" 'Dateiname
strAddress = .[D1] 'Empfänger
.Copy
End With
With ActiveWorkbook
.SaveAs strFile
Senden strFile, strAddress 'Datei versenden
.Close
End With
Kill strFile 'Datei löschen
Next
FEHLER:
Application.ScreenUpdating = True
End Sub

Sub Senden(AWS As String, strTo As String)
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = strTo 'Empfänger
.Subject = "Betreffzeile Header" 'Betreff
.attachments.Add AWS 'Anlage(Tabelle)
.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren." 'Nachrichtentext
'Hier wird die Mail nochmals angezeigt
'.Display
'Hier wird die Mail gleich in den Postausgang gelegt
.Send
End With
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
Sleep 5000 'warten auf Outlook
End Sub

Zu deiner Frage bezüglich Excel/VBA lernen:
Ich beschäftige mich erst seit etwa eineinhalb Jahren
näher mit Excel.
Alles was ich kann (und es gibt viel was ich noch nicht kann und weis!)
habe ich mit Hilfe dieses und anderer Excel-Foren und durch viel
herumprobieren erlernt.
Es gibt zwar sicher einige gute Bücher zum Thema Excel/VBA,
aber ich recherchiere lieber im Internet.
Das beste ist, so glaube ich, "learning by doing" und "try and error"!
Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Werte aus anderer Datei einlesen??

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte aus anderer Datei einlesen??

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread