Office: suche erste Zeile in Spalte Wert >0

Hallo, ich hab mal eine frage.

Ich suche die erste Zeile in einer bestimmten Spalte deren Wert >0 ist und hätte gern die Zeilennummer.

meine Tabelle sieht so aus:





und versucht habe ich es damit:

Dim Kunde As Integer
Dim bis As Date
Dim von As Date
Dim Zahl As Integer

Kunde = 100
bis = Date - 1

Windows("R-2012.xls").Activate
Zahl = ActiveSheet.Range("C1").Value

' Spalte mit entsprechender Kundennummer Suchen und Spaltennummer in Varriable S merken
ActiveSheet.Range("A1").Select
Dim S As Range
Set S = Sheets("Tabelle1").Rows(1).Find(Kunde, LookIn:=xlValues)

' erste Zeile mit Wert >0 finden und Zeilennummer in Varriable Z merken
ActiveSheet.Range("A1").Select
Dim Z As Range
Set Z = Sheets("Tabelle1").Columns(S).Find(What:>0, LookIn:=xlValues)

ActiveSheet.Range("A" & Z.Row).Select
von = ActiveRange.Value

Was habe ich falsch gemacht?

Kann mir jemand helfen ?

:)

 

Ich habe mir deine Code nicht so genau angesehen, da ich einige eigenarten dort sehe..
z.B. Code:

???

Aber ich würde das anderst machen.
Ich würde eine Schleife machen, in der ich die Spalte runtergehe und jeden Wert auswerte. Und dann kannst du per ActiveCell.Row die Zeilennummer auslesen..

 

Ich Aktiviere Die Datei R-2012.xls, weil der Code in der Datei Rechnung unter Button1 steht.

Ich muss das alles noch in eine Schleife packen, da zum Schluss auch die Kundennummer hochgezählt werden soll.

 

Hi Timo,

auf Activate/Select kann in VBA zu 99% aller Fälle verzichtet werden, indem man mit einer With-Anweisung arbeitet:
Code:

 

Hallo Karin,

Ich habe diesen Code so übernommen und erhalte aber in der
MSGBOX den Wert 2.

Wo kommt sie 2 her?

Ich möchte gern den Wert Zeile 10 haben.

Auserdem erhalte ich eine Fehlermeldung






Gruß Timo

 

Hi Timo,

ich erhalte mit meinem Code als Zeilennummer die 10, nicht die 2. Eine Fehlermeldung erhalte ich ebenfalls nicht.

 

ok, hier nochmal ein Screenshot

Die Spalte ist 4 und somit OK





Wo ist mein Fehler?

 

OK ich habe meinen Fehler gefunden !!!!!!!!!

Die Zellen, welche in der Tabell leer sind haben
Formeln mit Ergebnis 0. (ausgeblendet)
Ich suche die erste Zelle, die größer als 0 ist.

 

Hi Timo,

Code:

 

*Smilie Perfekt!! Das ist gut. *knuddel

kannst Du mich eventuell noch weiter unterstützen?

Das ist ein großes Projekt und ich bin in VBA noch ein Anfänger.

Ich habe zwer schon das ein oder andere erarbeitet aber das meiste in Excel mit Formeln, da mir in anderen Foren keiner weiterhelden konte.

Falls ich Darf sende ich Dir eine Mail mit de entsprechenden Hindergrundinformationen und den Tabellen.

Falls nicht ist auch nicht schlimm *weinen
Dann frage ich eben einzeln.

Gruß Timo *winken

 

Hi Timo,

bei einem großen Projekt ist die Frage: möchtest du selbst etwas dabei lernen, während sich dein Projekt entwickelt? In diesem Fall würde ich dir empfehlen, hier im Forum weiterhin ganz gezielt Fragen zu den Problemen zu stellen, bei denen du nicht weiter kommst. Dazu sind Internetforen ja da - und sie sind kostenlos.
Wenn du das Projekt jedoch durch jemanden (Softwarefima oder Einzelperson) erstellen lassen möchtest, dann wäre das als Auftragsprogrammierung anzusehen - und die ist nicht kostenlos.

Anmerkung: nicht alles muss per VBA gelöst werden - auch Formellösungen finden verbreitet Anwendung bei der Erstellung von Projekten. Du musst dir deshalb also keine Gedanken machen, wenn du bereits einen Teil mit Formeln umgesetzt hast.

 

Hallo Karin,

ok Vielen Dank, dann werde ich mal weiter Fragen.

mein nächstes Thema ist:

Suche Übereinstimmung in mehreren Spalten

Es währe schön, wenn Du da auch eine Lösung hättest.
Das ist das Thema, wo mir in anderen Foren nicht geholfen wurde.

Gruß Timo

 

Hi Timo,

nach diesem Prinzip:
Code:

 

Hi Karin,


genau nach diesem Prinzip. Das ist wirklich gut, nur bräuchte ich das mit drei Suchbegriffen, die alle drei stimmen müssen.






Ergebnis = 5 (Zeile)

Ist das auf diese Art möglich?

Gruß Timo

 

Hi Timo,

wie gibst du vor, nach welchem Begriff gesucht und mit welchen anderen Begriffen die Übereinstimmung gefunden werden soll?