... schrieb am 11.11.2010 07:47:13:
... schrieb am 11.11.2010 07:12:41:
Severus schrieb am 10.11.2010 17:06:13:
... schrieb am 10.11.2010 10:03:15:
hallo zusammen!
ich hab ein etwas größeres problem. ich habe 2 excel-dateien:
(datei 1: TEST_Prüfbutton.xls
datei2: TEST_Eingelesene Belege.xls)
in datei 1 steht in der zelle A2 eine belegnummer, diese soll in datei 2 in die spalte A kopiert werden. das problem ist, dass zum beispiel A1 und A2 schon belegt sind, dh, der wert aus datei 1 soll automatisch in die nächste freie zeile in spalte A der datei 2 kopiert werden. (prinzip: ein beleg nach dem anderen)
der nächste punkte wäre, dass die belegnummer überhaupt nur dann in datei 2 kopiert werden soll, wenn sie nicht schon bereits irgendwo in spalte A steht. dh ich bräuchte gleichzeitig einen code, der irgendwie alle schon in der spalte A stehenden werte prüft. ist dieser bereits vorhanden soll eine msgbox erscheinen ( MsgBox ("Beleg-Nr. wurde bereits eingelesen!")).
das ganze soll dazu dienen, dass man eine übersicht bekommt, über alle belegnummern, die schon einmal angeschaut wurden, damit man nicht alles doppelt macht.
kann mir da bitte jemand weiterhelfen? wäre wirklich super!! danke!
jetzt hab ich's schon:
Private Sub cmbPrüfen_Click()
Workbooks.Open Filename:= _
"H:\My Documents\Testordner_Einlesen\TEST_Eingelesene Belege.xls"
Dim WB As Workbook
Set WB = Workbooks("TEST_Eingelesene Belege.xls")
Call WB.Worksheets("Eingelesen").Eintrag
End Sub
VIELEN DANK!!!
Code für Datei2:
List alle OFFENEN Dateien ein! Keine Dateien offen lassen, die hier nicht verwertet werden sollen!
Sub Eintrag()
Dim WB As Excel.Workbook
Dim LetzteZeile As Long
Dim SuchBegriff As Variant
Dim Gefunden As Variant
On Error Resume Next
Dim LaufZahl As Long
With ThisWorkbook.ActiveSheet
LetzteZeile = .Cells.Rows.Count
LetzteZeile = .Cells(LetzteZeile, 1).End(xlUp).Row
For Each WB In Workbooks
If WB.Name <> ThisWorkbook.Name Then
SuchBegriff = WB.ActiveSheet.Range("A2")
Gefunden = Application.WorksheetFunction.Match(SuchBegriff, .Range(.Cells(1, 1), .Cells(LetzteZeile, 1)), 0)
If Err.Number <> 0 Then Err.Clear
If IsEmpty(Gefunden) Then
.Cells(LetzteZeile + 1, 1) = SuchBegriff
LetzteZeile = LetzteZeile + 1
Else
MsgBox "Belegnummer " & SuchBegriff & " wurde bereits eingelesen!", vbExclamation, "Hinweis..."
End If
End If
Next
End With
End Sub
Severus
super, das funktioniert soweit. jetzt ist es nur so, dass ich in datei 1 einen button angelegt habe und nur datei 1 offen ist. d.h., wenn ich den button drücke muss zunächst gleich mal datei 2 öffnen, das geht dann wohl so:
Workbooks.Open Filename:= _
"H:\My Documents\Testordner_Einlesen\TEST_Eingelesene Belege.xls"
funktioniert das, dass ich sage, er soll dann in datei 2 zum Sub Eintrag() übergehen oder muss ich das alles anders lösen?
es soll also alles mit dem button in datei 1 ins rollen gebracht werden.wäre super wenn du das auch noch hinbekommen würdest! :-)
code vorerst in datei 1:
Private Sub cmbPrüfen_Click()
Workbooks.Open Filename:= _
"H:\My Documents\Testordner_Einlesen\TEST_Eingelesene Belege.xls"
End Sub
Den Code von Sub Eintrag() in Arbeitsmappe 2
in der Entwicklungsumgebung der datei 2 unter
"DieseArbeitsmappe" in einem
Private Sub Workbook_Open() Modul ablegen. Dann wird er automatisch ausgeführt, wenn datei 2 geröffnet wird.
Severus |