Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
180to184
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
180to184
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bittte hilfe

Bittte hilfe
13.11.2002 18:53:50
Stefan
leider konnte mir vorgestern keiner helfen aber ich hab jetzt in den beispielen ein marko gefunden das das ist was ich bräuchte. nur leider sucht dieses Marko nur in einen register! Ich kann leider kein VBA und bräuchte das so umgeschrieben das es in einer ganzen Arbeitsmappe sucht!! Vielleicht kannst ich eine gegenleistung bringen der mir helfen kann! Kann nähmlich gut HTML und PHP! Ich brauche das unbedingt aber noch heute!! HOOFFEE JEMAND HILFT MIR!!!!


Sub SearchNames()
Dim rng As Range, rngSource As Range, rngStart As Range
Dim varInput As Variant
Dim iRow As Integer
varInput = Application.InputBox( _
prompt:="Geben Sie bitte den Namen ein:", _
Title:="Namen-Zeilen kopieren", _
Default:="Name 4", _
Left:=263, _
Top:=169, _
Type:=2)
If varInput = False Then Exit Sub
Set rng = ActiveSheet.Columns("A:F").Find( _
what:=varInput, lookat:=xlWhole, LookIn:=xlValues)
If rng Is Nothing Then
Beep
MsgBox "Suchbegriff nicht gefunden!"
Exit Sub
End If
Set rngStart = rng
Set rngSource = rng.EntireRow
Do
Set rng = Cells.FindNext(After:=rng)
If rng.Address = rngStart.Address Then Exit Do
Set rngSource = Application.Union(rngSource, rng.EntireRow)
Loop
With Worksheets("Target")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row
If iRow = 1 Then iRow = 2 Else iRow = iRow + 3
rngSource.Copy .Cells(iRow, 1)
.Columns.AutoFit
End With
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Bittte hilfe
13.11.2002 19:05:51
Nike
Hi,
na, versuch mal Dein Glück hiermit:

Das mit der Hilfe bei PHP wär tatsächlich cool ;-)

Bye

Nike

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige