AW: Variable Dateiübergreifend übergeben
25.09.2010 19:56:54
Tino
Hallo,
versuch mal diese Variante.
Code steht in Mappe1.xls und Mappe2.xls ist in der gleichen Instanz geöffnet!
Option Explicit
Sub Beispiel()
Dim oWBZiel As Workbook
Dim varRow
Dim strSuchWert As String
'die Mappe zwei in gleicher Instanz!
Set oWBZiel = Workbooks("Mappe2.xls")
'Suchwert
strSuchWert = "Salzburg"
'suche auf welcher Tabelle?
With oWBZiel.Sheets("Tabelle1")
'Suche in erster Spalte, gib Zeile zurück
varRow = Application.Match(strSuchWert, .UsedRange.Columns(1), 0)
'wurde was gefunden?
If IsNumeric(varRow) Then
'zwei Spalten daneben Datum eintragen
.UsedRange.Cells(varRow, 1).Offset(0, 2).Offset = Date
Else
MsgBox strSuchWert & " wurde nicht in " & vbCr & _
.UsedRange.Columns(1).Address(0, 0, external:=True) & vbCr & _
" gefunden!", vbCritical
End If
End With
End Sub
Gruß Tino