AW: Daten aus einer anderen Tabelle gefiltert import
25.11.2012 16:26:59
Matze,Matthias
Wer sagt das ich nicht Helfe,
zumindest könntest du uns deinen RealNamen mal verraten,
mir war der Anschein gegeben, das du als Excel Profi noch nicht mal die Recherche oder Tante Google fragst, dort würdest zumindest Ansätzte dieses Problemes finden.
Da du meinen dezent angedeuteten Vorschlag mit dem Makrorecorder auch nix anzufangen weist,
hab ich aber zumindest selber nach Lösungsansätzen gesucht.
Case hat eine super tolle Seite dieses Makro von ihm müsste dann deinen Wünschen angepasst werden:
'--------------------------------------------------------------------------
' Module : Modul1
' Procedure : Main_1
' Author : Case (Ralf Stolzenburg)
' Date : 23.11.2012
' Purpose : Termin "Heute" finden Zellen daneben ausgeben Alle...
'--------------------------------------------------------------------------
Sub Main_1()
Dim strFirstAddress As String
Dim rngRange As Range
Dim rngCell As Range
On Error GoTo Fin
With Tabelle1
Set rngRange = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
Set rngCell = rngRange.Find(Date, LookIn:=xlValues, LookAt:=xlWhole)
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
MsgBox "Folgenden Termine wurden gefunden: " & _
rngCell.Address(False, False) & _
" " & rngCell.Offset(0, 1).Text & _
" - " & rngCell.Offset(0, 2).Text & _
" " & rngCell.Offset(0, 3).Text & vbCrLf
Set rngCell = rngRange.FindNext(rngCell)
Loop While rngCell.Address strFirstAddress
Else
MsgBox "Es wurden keine Termine gefunden!"
End If
End With
Fin:
Set rngCell = Nothing
Set rngRange = Nothing
If Err.Number 0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub
Für eine Komplettlösung bitte ich einen der Profis hier weiter zu machen,
oder veruche dich selbst mal in VBA
Gruß Matze