Új hozzászólás Aktív témák

• #40421 Declare őstag Fferi50 #40413

  Új Válasz 2019-03-14 10:17:28 #40421

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Declare

  őstag

  válasz Fferi50 #40413 üzenetére

  Meglett a hiba (kettö gomb volt es az egyiknel atirtam az "After"-os valtozatra, a masiknal nem. AMikor probalgattam a gombokat a masodik gombnal nem müködött, csak ez nem tünt fel, hogy csak az egyikkel van a baj.)

  A kereses es kigyüjtesre majdnem megvan a megoldas:

  Dim c As Range
Dim OK As Variant
Dim iZähler As Integer
Const Tab1 = "Bautagebuch"
Const Tab2 = "13.03.19"

Sub suchen()
iZähler = 5
With Worksheets(Tab1).Range("C1:C500")
OK = Application.InputBox("Wonach soll gesucht werden? ")
Set c = .Find(OK, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Range("A" + Trim(Str$(c.Row)) + ":G" + Trim(Str$(c.Row))).Select
Selection.Copy
Sheets(Tab2).Select
Range("A" + Trim(Str$(iZähler))).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
iZähler = iZähler + 1
Sheets(Tab1).Select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub

  A baj, hogy en datumot szeretnek keresni, de ha datumot beirom az inputboxba, nem törtenik semmi . Ha mas oszlopban keresek (nem a C ben, hanem mondjuk A ban) es ott beirok egy nevet, azzal tökeletesen müködik. Valami itt a datum formatum dologgal lesz szerintem, de nem tudom, hogy mi

  Ötlet valakinek?

Új hozzászólás Aktív témák