AW: variable übergeben
14.11.2006 22:26:37
Reinhard
Hi Michael,
du hast "Nr" in meinem Beispiel übersehen.
Und lese nochmal die Hilfe zu Dim, Static, globale Variablen durch bzw besorhe dir Fachbücher zu Excel-Vba, die für XL97 sind preisgünstig, logo gebraucht bei ebay oder so.
Irgendwo auf der Hp der Fern-Uni Hagen findet man unter "Broschüren" eine PDF für Excel-Vba-Grundlagen, kostenlos zum Downloaden.
Private Sub Anzahlx001_Change()
Dim ident
ident = Right(Anzahlx001.Name, 4)
Call Anzahl_eintragen(Right(Anzahlx001.Name, Len("Text") + 1))
End Sub
Sub Anzahl_eintragen(ident)
Liste.Controls("combo" & ident).Value = suchbegriff
Range(Fenster).Select
Selection.Find(What:="suchbegriff", After:=ActiveCell, _
LookIn:=xlFormulas, lookat:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Offset(0, -1).Value = Liste.Controls("Anzahl" & ident).Value
End Sub
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..