Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hilfe gesucht

Hilfe gesucht
21.12.2003 12: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
Anzeige
AW: Hilfe gesucht
21.12.2003 16: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

Danke Beni !!!!
21.12.2003 19:34:41
Dieter
Danke Beni, super gelöst. Wünsche ein Frohes Fest.
MfG Dieter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige