SVERWEIS umgekehrt Makro

11/12/2007 - 21:56 von LUWEIN | Report spam
Hallo,

EXCEL 2002, SP3
Win XP Prof, SP 2 Build 2600

Ich benötige ein Makro, das folgendes macht:

1. Den Inhalt von zwei Zellen des Tabellenblattes "Meldung" miteinander
verketten (G5 + C9)
2. Mit dem verketteten Wert als Suchkriterium in Spalte A des
Tabellenblattes "Aktive" die Zeile mit dem Wert suchen.
Der Wert kommt sicher nur einmal vor.
3. Wurde die Zeile gefunden, soll in die Spalte 9 dieser Zeile der Wert
500 eingetragen werden.

Ich bin für jede Hilfe dankbar.

Mit freundlichem Gruß

Franz Luwein
 

Lesen sie die antworten

#1 Claus Busch
11/12/2007 - 22:52 | Warnen spam
Hallo Franz,

Am Tue, 11 Dec 2007 21:56:28 +0100 schrieb LUWEIN:

1. Den Inhalt von zwei Zellen des Tabellenblattes "Meldung" miteinander
verketten (G5 + C9)
2. Mit dem verketteten Wert als Suchkriterium in Spalte A des
Tabellenblattes "Aktive" die Zeile mit dem Wert suchen.
Der Wert kommt sicher nur einmal vor.
3. Wurde die Zeile gefunden, soll in die Spalte 9 dieser Zeile der Wert
500 eingetragen werden.



probiere es mal so:
Sub Suchen()

Dim SuchBegriff
Dim FundZeile As Long

With Sheets("Meldung")
SuchBegriff = .Range("G5") & .Range("C9")
End With

With Sheets("Aktive")
FundZeile = .Cells.Find(What:=SuchBegriff, After:=.Range("A1"), _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row

.Range("I" & FundZeile).Value = 500
End With

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen