Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hilfe gesucht

Forumthread: 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
Anzeige

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

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

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige