Thema Datum  Von Nutzer Rating
Antwort
16.04.2007 20:41:06 Martin
NotSolved
Blau Aw:werte mit 2 versch. Bedingungen finden
 17.04.2007 04:34:42 Rasta
NotSolved
02.05.2007 14:21:38 Maddin
NotSolved

Ansicht des Beitrags:
Von:
Rasta		 Datum:
17.04.2007 04:34:42		 Views:
1020		 Rating:
     
Antwort:
  Ja
Thema:
Aw:werte mit 2 versch. Bedingungen finden
Hi Martin,

durchlaufe deine daten in einer suche.

hier ist ein beispiel code für eine suche - sollte einfach genug abzuändern sein.

viele grüße

rasta

Sub SaveMeTime()

Dim SearchFor As String
Dim ex As New Excel.Application
Dim file As String
Dim wb As Excel.Workbook
Dim wbRow As Long
Dim row As Long
Dim column As Long
Dim rFoundCell As Range

Dim searchColumn As Long
Dim RangeColumn As String

Dim foundcolumn As Long
Dim foundrow As Long

Dim date1
Dim date2


file = "c:\tmp\Factory Record.xls"
Set wb = ex.Workbooks.Open(file)
wb.Worksheets("A").Activate



row = 1
column = 2
wbRow = 1


Do Until Cells(row, column) = ""

SearchFor = Cells(row, column)

For searchColumn = 1 To 5

If searchColumn = 1 Then
RangeColumn = "A"

ElseIf searchColumn = 2 Then
RangeColumn = "B"

ElseIf searchColumn = 3 Then
RangeColumn = "C"

ElseIf searchColumn = 4 Then
RangeColumn = "D"

ElseIf searchColumn = 5 Then
RangeColumn = "E"

End If

Set rFoundCell = wb.Worksheets("A").Range(RangeColumn & wbRow)


Set rFoundCell = wb.Worksheets("A").Columns(searchColumn).Find(what:=SearchFor, after:=rFoundCell, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)


If Not rFoundCell Is Nothing Then

foundcolumn = rFoundCell.column
foundrow = rFoundCell.row

date1 = wb.Worksheets("A").Cells(foundrow, 5)
date2 = DateSerial(Year(date1), Month(date1) + 14, Day(date1))

Cells(row, 11).NumberFormat = "dd/mm/yyyy;@"
Cells(row, 11) = date2

End If

wbRow = wbRow + 1

'count the range plus 1, excel needs that somehow....
Set rFoundCell = wb.Worksheets("A").Range(RangeColumn & wbRow)
Next

row = row + 1

Loop
MsgBox "Done"
wb.Close


End Sub



Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
16.04.2007 20:41:06 Martin
NotSolved
Blau Aw:werte mit 2 versch. Bedingungen finden
 17.04.2007 04:34:42 Rasta
NotSolved
02.05.2007 14:21:38 Maddin
NotSolved