AW: INDIREKT - Formel
30.06.2011 13:57:03
chris58
Hallo !
Danke für die Formel, habe sie eingebaut, sie funktioniert. Nur eines, ich kann sie wieder nicht verwenden.
Wegen:
Ich muß die Daten, nachdem ich sie "rübergeschaufelt" habe, mit diesem Code weiter bearbeiten. Ich habe da ungefähr 25 Konten die auf diese Konten aufgeteilt werden. Nachdem ich deine Formel eingefügt hatte und auf "Ausführen" (Daten aufteilen) ging, schlägt mir der VBA Code mache Daten in die falschen Konten.
Da ich aber eine korrekte Summe benötige (Bilanz) muß ich mich notgedrungen mit dem normalen kopieren (ca. 9000 Datensätze) begnügen. Jedenfalls für deine Mühe herzlichen Dank
chris58
Hier der Code mit dem ich diese Daten aufteile:
Option Explicit
Public Sub AuswaehlenKopieren()
Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet
Dim rZelle As Range
Dim sFundst As String
Dim sSuchbegriff As String
Dim lZeile_Z As Long
sSuchbegriff = "Strom" ' der zu suchende Begriff
lZeile_Z = 1 ' die erste Ausgabezeile -1
Application.ScreenUpdating = False
Set WkSh_Q = Worksheets("Saldenliste") ' den Tabellenblattnamen ggf. anpassen !!!
Set WkSh_Z = Worksheets("Strom") ' den Tabellenblattnamen ggf. anpassen !!!
With WkSh_Q.Columns(3)
' wenn der gesamte Suchbegriff gefunden werden soll muss es
' xlWhole anstelle von xlPart heißen.
Set rZelle = .Find(sSuchbegriff, LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address
Do
lZeile_Z = lZeile_Z + 1
WkSh_Q.Rows(rZelle.Row).Copy Destination:=WkSh_Z.Rows(lZeile_Z)
Set rZelle = .FindNext(rZelle)
Loop While Not rZelle Is Nothing And rZelle.Address sFundst
Else
MsgBox "Zum gesuchen Begriff """ & sSuchbegriff & _
""" wurde kein Eintrag gefunden.", _
48, " Hinweis für " & Application.UserName
End If
End With
Application.ScreenUpdating = True
End Sub