title image


Smiley In neue Tabelle schreiben
Hallo Thomas,



laut deiner Aussage willst du nicht rechnen sondern nur "ausfiltern".

Solltest du rechnen wollen, muss das angehängte Minuszeichen noch behandelt werden.

Das ganze Gerödle wertet die aktive Tabelle (Name ist ja wahrscheinlich nicht konstant) in einer neu hinzugefügten Tabelle aus.



Viel Spass

Günther



Sub MachMal()

Dim wsAusgabe As Worksheet

Dim rA As Range, _

rA1 As Range, _

rGefunden As Range, _

rAusgabe As Range

Dim varSuchmich As Variant

Dim FirstAddress As String

Dim x As Integer



' Die Quell-Liste muss aktiviert sein

Set rA = ActiveSheet.[a:a]

Set rA1 = ActiveSheet.[a1]



Set wsAusgabe = Sheets.Add

Set rAusgabe = wsAusgabe.[a1]



' Leider ist die csv-Qualität oder deren Import qualitativ fraglich,

' z.B. ist "Sachbearbeiter" teilweise abgeschnitten "Sachbearbeite" und "r"

varSuchmich = "Sachbearb"

x = 1

With rA

Set rGefunden = .Find(varSuchmich, After:=rA1, LookIn:=xlValues, LookAt:=xlPart)

If Not rGefunden Is Nothing Then

' Zeile 1: Sachbearbeiter; 5x leer

' Zeile 2: Konto-Nr.; Name; Saldo;Rahmen;-%Abweichung;Einstiegskurs

' Zeile 3: Kunden- Nr.;leer;SaldoBilaWCD; RahmenBilaWCD;+%Abweichung;aktueller Kurs

' Zeile 4: leer; SwiftWCD;urspr. Kredithöhe;Ist-Betrag-Abweichung;Ist-%-Abweichung;leer

' Zeile 5: 6x leer

' Zeile 6: 6x Bindestriche



' Headerline -------------------------------------------------------------------------------

' Zeile 1

FirstAddress = rGefunden.Address

' Zeile 2

rAusgabe.Value = Trim(rGefunden.Value) ' Sachbearbeiter

rAusgabe.Offset(0, 1).Value = Trim(rGefunden.Offset(1, 0).Value) ' Konto-Nr.

rAusgabe.Offset(0, 2).Value = Trim(rGefunden.Offset(1, 1).Value) ' Name

rAusgabe.Offset(0, 3).Value = Trim(rGefunden.Offset(1, 2).Value) ' Saldo

rAusgabe.Offset(0, 4).Value = Trim(rGefunden.Offset(1, 3).Value) ' Rahmen

rAusgabe.Offset(0, 5).Value = Trim(rGefunden.Offset(1, 4).Value) ' -%Abweichung

rAusgabe.Offset(0, 6).Value = Trim(rGefunden.Offset(1, 5).Value) ' Einstiegskurs

' Zeile 3

rAusgabe.Offset(0, 7).Value = Trim(rGefunden.Offset(2, 0).Value) ' Kunden- Nr.

' rAusgabe.Offset(0, 8).Value = trim(rGefunden.Offset(2, 1).Value) ' leer

rAusgabe.Offset(0, 8).Value = Trim(rGefunden.Offset(2, 2).Value) ' SaldoBilaWCD

rAusgabe.Offset(0, 9).Value = Trim(rGefunden.Offset(2, 3).Value) ' RahmenBilaWCD

rAusgabe.Offset(0, 10).Value = Trim(rGefunden.Offset(2, 4).Value) ' +%Abweichung

rAusgabe.Offset(0, 11).Value = Trim(rGefunden.Offset(2, 5).Value) ' aktueller Kurs

' Zeile 4

' rAusgabe.Offset(0, 12).Value = trim(rGefunden.Offset(3, 0).Value) ' leer

rAusgabe.Offset(0, 12).Value = Trim(rGefunden.Offset(3, 1).Value) ' SwiftWCD

rAusgabe.Offset(0, 13).Value = Trim(rGefunden.Offset(3, 2).Value) ' urspr. Kredithöhe

rAusgabe.Offset(0, 14).Value = Trim(rGefunden.Offset(3, 3).Value) ' Ist-Betrag-Abweichung

rAusgabe.Offset(0, 15).Value = Trim(rGefunden.Offset(3, 4).Value) ' Ist-%-Abweichung

' rAusgabe.Offset(0, 16).Value = trim(rGefunden.Offset(3, 5).Value) ' leer

' Ende Headerline, Start erster Listeintrag -------------------------------------------------

rAusgabe.Offset(x, 0).Value = rGefunden.Offset(5, 0).Value ' Sachbearbeiter

rAusgabe.Offset(x, 1).Value = Trim(rGefunden.Offset(6, 0).Value) ' Konto-Nr.

rAusgabe.Offset(x, 2).Value = Trim(rGefunden.Offset(6, 1).Value) ' Name

rAusgabe.Offset(x, 3).Value = Trim(rGefunden.Offset(6, 2).Value) ' Saldo

rAusgabe.Offset(x, 4).Value = Trim(rGefunden.Offset(6, 3).Value) ' Rahmen

rAusgabe.Offset(x, 5).Value = Trim(rGefunden.Offset(6, 4).Value) ' -%Abweichung

rAusgabe.Offset(x, 6).Value = Trim(rGefunden.Offset(6, 5).Value) ' Einstiegskurs

' Zeile 3

rAusgabe.Offset(x, 7).Value = Trim(rGefunden.Offset(7, 0).Value) ' Kunden- Nr.

' rAusgabe.Offset(x, 8).Value = trim(rGefunden.Offset(7, 1).Value) ' leer

rAusgabe.Offset(x, 8).Value = Trim(rGefunden.Offset(7, 2).Value) ' SaldoBilaWCD

rAusgabe.Offset(x, 9).Value = Trim(rGefunden.Offset(7, 3).Value) ' RahmenBilaWCD

rAusgabe.Offset(x, 10).Value = Trim(rGefunden.Offset(7, 4).Value) ' +%Abweichung

rAusgabe.Offset(x, 11).Value = Trim(rGefunden.Offset(7, 5).Value) ' aktueller Kurs

' Zeile 4

' rAusgabe.Offset(x, 12).Value = trim(rGefunden.Offset(8, 0).Value) ' leer

rAusgabe.Offset(x, 12).Value = Trim(rGefunden.Offset(8, 1).Value) ' SwiftWCD

rAusgabe.Offset(x, 13).Value = Trim(rGefunden.Offset(8, 2).Value) ' urspr. Kredithöhe

rAusgabe.Offset(x, 14).Value = Trim(rGefunden.Offset(8, 3).Value) ' Ist-Betrag-Abweichung

rAusgabe.Offset(x, 15).Value = Trim(rGefunden.Offset(8, 4).Value) ' Ist-%-Abweichung

' rAusgabe.Offset(x, 16).Value = trim(rGefunden.Offset(8, 5).Value) ' leer



Do

' Mach weiter mit der Liste

Set rGefunden = .FindNext(rGefunden)

If Not rGefunden Is Nothing Then

x = x + 1

rAusgabe.Offset(x, 0).Value = rGefunden.Offset(5, 0).Value ' Sachbearbeiter

rAusgabe.Offset(x, 1).Value = Trim(rGefunden.Offset(6, 0).Value) ' Konto-Nr.

rAusgabe.Offset(x, 2).Value = Trim(rGefunden.Offset(6, 1).Value) ' Name

rAusgabe.Offset(x, 3).Value = Trim(rGefunden.Offset(6, 2).Value) ' Saldo

rAusgabe.Offset(x, 4).Value = Trim(rGefunden.Offset(6, 3).Value) ' Rahmen

rAusgabe.Offset(x, 5).Value = Trim(rGefunden.Offset(6, 4).Value) ' -%Abweichung

rAusgabe.Offset(x, 6).Value = Trim(rGefunden.Offset(6, 5).Value) ' Einstiegskurs

' Zeile 3

rAusgabe.Offset(x, 7).Value = Trim(rGefunden.Offset(7, 0).Value) ' Kunden- Nr.

' rAusgabe.Offset(x, 8).Value = trim(rGefunden.Offset(7, 1).Value) ' leer

rAusgabe.Offset(x, 8).Value = Trim(rGefunden.Offset(7, 2).Value) ' SaldoBilaWCD

rAusgabe.Offset(x, 9).Value = Trim(rGefunden.Offset(7, 3).Value) ' RahmenBilaWCD

rAusgabe.Offset(x, 10).Value = Trim(rGefunden.Offset(7, 4).Value) ' +%Abweichung

rAusgabe.Offset(x, 11).Value = Trim(rGefunden.Offset(7, 5).Value) ' aktueller Kurs

' Zeile 4

' rAusgabe.Offset(x, 12).Value = trim(rGefunden.Offset(8, 0).Value) ' leer

rAusgabe.Offset(x, 12).Value = Trim(rGefunden.Offset(8, 1).Value) ' SwiftWCD

rAusgabe.Offset(x, 13).Value = Trim(rGefunden.Offset(8, 2).Value) ' urspr. Kredithöhe

rAusgabe.Offset(x, 14).Value = Trim(rGefunden.Offset(8, 3).Value) ' Ist-Betrag-Abweichung

rAusgabe.Offset(x, 15).Value = Trim(rGefunden.Offset(8, 4).Value) ' Ist-%-Abweichung

' rAusgabe.Offset(x, 16).Value = trim(rGefunden.Offset(8, 5).Value) ' leer

End If

Loop While Not rGefunden Is Nothing And rGefunden.Address FirstAddress

End If

End With

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: