Hallo zusammen,

bin ein absoluter Newbie bzgl VBA-Excel-programmierung.

Folgendes Problem:
Ich ermittel mir mit folgendem Code-Fragment eine Zeile:
Zeilenzaehler = (Cells.Find(What:=Suchwert, _ After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _ SearchDirection:= xlNext, MatchCase:=True).Row)
Soweit so gut. Im Verlauf des Makros muss ich von dieser Variablen 1 subtrahieren, solange der Wert einstellig ist, kein Problem, erst wenn in der Variablen ein 2-stelliger Wert steht und ich dann um eins subtrahiere, also 11 -1 = 10 wird bei diesem Vorgang das Ergebnis auf 1 gesetzt. Warum ? Alle benötigten Variablen sind lokale Variablen.

Könnt Ihr mir bitte helfen?

Gruß von Newbie

Hans

Hallo Hans,

also ich hab zwar schon einiges mit EXCEL VBA erlebt, aber rechnen tut's eigentlich ganz korrekt. Ich vermute, dass das Problem an anderer Stelle zu suchen ist. Was mir auffällt:

- Du weist der Variablen Zeilenzaehler direkt die Zeile des zurückgegebenen Range Objektes zu. Es erfolgt aber keien Prüfung, ob der Suchvorgang erfolgreich gewesen ist. Evtl. ist eine fehlgeschlage Suche der Grund.

Ohne ein bischen mehr Code kann ich da nur wenig weiterhelfen.

Gruß
Das Orakel

Hallo Orakel,

danke für Deine Antwort. Damit Du mir eventuell noch weiter helfen kannst, poste ich mal den gesamten Code dieser Function:

Der Aufruf der Funktion sieht folgender Maßen aus:

Call SheetData(Map, Layer, SheetNames, SH_C_Index)

Die Funktion:
Function SheetData(Map, Layer, SheetNames, SH_C_Index)

Dim Suchwert As Variant
Dim CopyIndex As String
Dim CopyCell As String
Dim Zeile As String
Dim zahl As Long
Dim Spalte As Long
Dim Zeilenzaehler As Long
Dim zz As Long

Suchwert = Workbooks(Map).Worksheets(SheetNames(SH_C_Index - 1)).Cells(1, 1)
Workbooks("produktliste.xls").Worksheets("produktliste").Activate
Lauf_index = 1
Zeilenindex = 1
CopyIndex = 2
zahl = 0
zz = 0

' Do
With Workbooks("produktliste.xls").Worksheets("produktliste").Range("a1:a4000")
Set c = .Find(Suchwert, LookIn:=xlValues)
If Not c Is Nothing Then
Range("A1:A4000").Select
firstAddress = c.Address(RowAbsolute:=False, ColumnAbsolute:=False)
' Range(firstAddress).Select

Spalte = (Cells.Find(What:=Suchwert, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=True).Row)
Zeilenzaehler = (Cells.Find(What:=Suchwert, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=True).Row)
zz = Zeilenzaehler
inhalt = VarType(Spalte)
inhalt1 = VarType(Zeilenzaehler)
Workbooks("produktliste.xls").Worksheets("produktliste").Rows(Spalte).Copy
Workbooks(Map).Worksheets(SheetNames(SH_C_Index - 1)).Activate
Range("A2").Select
ActiveSheet.Paste
Do
Workbooks("produktliste.xls").Worksheets("produktliste").Activate
If Suchwert = ActiveCell.Value Then
c.Interior.Pattern = xlPatternGray50
Set c = .FindNext(c)
firstAddress = c.Address(RowAbsolute:=False, ColumnAbsolute:=False)
Range("A1:A4000").Select
Range(firstAddress).Select
Spalte = (Cells.Find(What:=Suchwert, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=True).Row)
Zeilenzaehler = (Cells.Find(What:=Suchwert, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=True).Row)
zz = Zeilenzaehler
zz = zz - 1
inhalt1 = VarType((Cells.Find(What:=Suchwert, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=True).Row))
zahl = (Cells.Find(What:=Suchwert, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=True).Row)
Zeilenzaehler = Zeilenzaehler - 1
zahl = zahl - 1
rw = Spalte - 1
Spalte = (Spalte - 1)
Workbooks("produktliste.xls").Worksheets("produktliste").Rows(Spalte).Copy
Workbooks(Map).Worksheets(SheetNames(SH_C_Index - 1)).Activate
CopyIndex = CopyIndex + 1
CopyCell = "A" & CopyIndex
Range(CopyCell).Select
ActiveSheet.Paste
End If
Loop While Suchwert = ActiveCell.Value Or ActiveCell = " "
' Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
' Loop While Suchwert = ActiveCell.Value Or ActiveCell = " "

End Function
Ich hoffe, Du kannst damit ein wenig mehr anfangen und mir helfen.

Vielen Dank im voraus.

Hans

Uff, dass ist ja ne ganze Menge. Also wenn ich das korrekt verstehe, hast Du eine Exceldatei, in der in Zelle A1 das Produkt steht, das aus der Exceldatei "Preisliste.xls" ausgelesen werden soll. Wenn ich mir die Dateien entsprechend zurechtbastel, habe ich keinen Stress mit der Rechenoperation. Aber mir ist an zwei Stellen aufgefallen, dass Du die Spalte ausliest, aber dabei die Row Eigenschaft verwendest. Hat aber mit Deinem Prob nix zu tun.

Ich versuch noch mal das Teil zu durchsteigen und melde mich noch mal

Gruß
Das Orakel

Hallo Hans,

also ich bin jetzt den Weg des geringeren Wiederstandes gegangen und dazu kann ich Dir folgende Lösung anbieten:



Die notwendige Parameterübergabe für die korrekte Arbeitsweise sollte ja kein Problem darstellen.

Maybe it helps
Das Orakel

Hallo Orakel,

das ist genau die Lösung des Problems. Du hast auch das Loop-Problem des Find-Befehls leicht umgangen. Super, danke.

Es läuft und macht genau das, was ich will.

Danke für Deine Hilfe.

Hans

Hi Hans,

sowas mach ich gerne, vorausgesetzt ich hab Zeit.

Gruß
Das Orakel