Wert aus darüberliegenden Zelle

Forumthread: Wert aus darüberliegenden Zelle

27.01.2008 18:23:00

Herbert

Hallo Helfer
Ich möchte aus einer Tabelle einen Datensatz zur Weiterverarbeitung übernehmen.
Problem: In Spalte A stehen nicht überall Werte, so das ich den Wert übernehmen will, der in Spalte A darüber liegt. Siehe Beispielmappe.

Die Datei https://www.herber.de/bbs/user/49416.xls wurde aus Datenschutzgründen gelöscht

Danke im Voraus
Gruß Herbert

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wert aus darüberliegenden Zelle

27.01.2008 18:46:00

chris
Verständnisfrage

27.01.2008 18:55:00

Herbert
AW: Verständnisfrage

27.01.2008 19:06:07

chris
AW: Verständnisfrage

27.01.2008 19:13:00

Herbert
AW: Verständnisfrage

27.01.2008 19:11:00

Niki
AW: Wert aus darüberliegenden Zelle

27.01.2008 19:09:00

Niki
Danke !!! Du bist Klasse !!! o.T.

27.01.2008 19:17:00

Herbert

AW: Wert aus darüberliegenden Zelle

27.01.2008 18:46:00

chris

HAllo das könntest du so machen.
https://www.herber.de/bbs/user/49418.xls
Hoffe dir geholfen zu haben.
gruß Chris

Verständnisfrage

27.01.2008 18:55:00

Herbert

Hallo Chris
Viele Dank, das ist genau was ich brauche. Jetzt die Verständnisfrage:
Du übergibst (x) an das Makro Test, hab ich verstanden.
Dim x As Integer


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column  2 Then
Exit Sub
Else
'zahl ermitteln Spalte A
For x = Target.Row To 1 Step -1
If Cells(x, 1)  "" Then Exit For
Next
Call Test(x)
End If
End Sub

Wieso rufst Du das Makro mit sub Test (wo) auf?
Sub Test(wo)
On Error Resume Next
nnam = ActiveCell.Value
vnam = ActiveCell.Offset(0, 1).Value
stra = ActiveCell.Offset(0, 2).Value
ort = ActiveCell.Offset(0, 3).Value
MsgBox Cells(wo, 1) & " " & vnam & " " & nnam & " " & stra & " " & ort
End Sub

Gruß Herbert

AW: Verständnisfrage

27.01.2008 19:06:07

chris

Hallo Herbert,
gibt keinen speziellen Grund.
Habe mir einfach gedacht das im anderen Makro das wo besser definiert ist.
Also damit meine ich das mann weiß was die variable beinhalten könnte.
Weil wenn ich zum beispiel
"Makro mit


Sub Test (test)"
aufrufen würde würde mann bei komplexen programmen nicht mehr zuordnen können warum ider was  _
text für einen Wert enthalten könnte.
Und x ist eben der zähler den ich verwendet habe für meine Schleife....
Kann nicht sonderlich gut erklären aber ich hoffe du verstehst es.. ?
Könntest genauso:


Sub Test(wo_zeile)
On Error Resume Next
nnam = ActiveCell.Value
vnam = ActiveCell.Offset(0, 1).Value
stra = ActiveCell.Offset(0, 2).Value
ort = ActiveCell.Offset(0, 3).Value
MsgBox Cells(wo, 1) & " " & vnam & " " & nnam & " " & stra & " " & ort
End Sub


schreiben.

AW: Verständnisfrage

27.01.2008 19:13:00

Herbert

Hallo Chris
Na ,geht so mit dem Verständnis.
Eins noch:
Wenn ich die Prozedur in einem Makro in einem Modul haben will (ohne Worksheet_SelectionChange) habe ich das Problem, wie muß´ich den Code umschreiben, um
For x = Target.Row To 1 Step -1
zu ersetzen (Target ist ja ein Teil der Worksheet--Anweisung)?
Hoffe, Du weißt, was ich meine
Gruß Herbert

AW: Verständnisfrage

27.01.2008 19:11:00

Niki

Das wo übergibt die Position der Eigetlichen Zelle und holt die Information bei einsetzen in die MSGbox aus dem Tabellenblatt.
MsgBox Cells(wo, 1)

AW: Wert aus darüberliegenden Zelle

27.01.2008 19:09:00

Niki

Hallo


Sub Test()
On Error Resume Next
nnam = ActiveCell.Value
vnam = ActiveCell.Offset(0, 1).Value
stra = ActiveCell.Offset(0, 2).Value
ort = ActiveCell.Offset(0, 3).Value
nr = ActiveCell.Offset(1, -1).End(xlUp).Value 'Neue Zeile
MsgBox nr & " " & vnam & " " & nnam & " " & stra & " " & ort
End Sub

Gruß Niki
P.S. Rückmeldung wäre nett.

Danke !!! Du bist Klasse !!! o.T.

27.01.2008 19:17:00

Herbert

Beliebteste Forumthreads (12 Monate)

Forumthread: Wert aus darüberliegenden Zelle

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread