Hilfe gesucht

Forumthread: Hilfe gesucht
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Hilfe gesucht

Hilfe gesucht

21.12.2003 13:43:11

Dieter

Ich habe eine Tabelle1 in Spalte A101 bis A126 stehen Namen neben den Namen stehen zwei Zahlen also 1.Zahl in B101 - 126 und in C101- 126 die zweite Zahl das sind Zusatzzahlen -Voraussagen. Nun möchte ich diese nach der aktuellen gezogenen Z.Z. durchsuchen lassen und den Namen plus der Zahl kopieren lassen beginnend in Tabelle1 ab Zeile 5 in Spalte B die Zahl und in Spalte E den Namen. Bei der nächsten Ziehung das gleiche aber beginnend in Zeile 6 ist so etwas über ein Makro zu steuern ? Dank im voraus.
MfG Dieter

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Hilfe gesucht

21.12.2003 17:04:37

Beni
Danke Beni !!!!

21.12.2003 20:34:41

Dieter

AW: Hilfe gesucht

21.12.2003 17:04:37

Beni

Hallo Dieter,
versuche es mit diesem Code,
Gruss Beni


Sub Zusatzzahl()
Dim Zusatzzahl
Titel = "Zusatzzahl"
Mldg = "Zusatzzahl eingeben"
Zusatzzahl = InputBox(Mldg, Titel)
With Sheets(1).Range(Cells(101, 2), Cells(126, 3))
Set C = .Find(Zusatzzahl, LookIn:=xlValues, LookAt:=xlWhole)
If C Is Nothing Then
MsgBox "Zusatzzahl nicht vorhanden"
Exit Sub
End If
End With
r = Cells(100, 2).End(xlUp).Row + 1
If r < 4 Then r = 5
If C(1, 1).Column = 2 Then f = 0 Else f = -1
Cells(r, 2) = C(1, f)
Cells(r, 5) = C(1, 1)
End Sub