|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
28.01.2008 08:38:40 |
Andi |
|
|
|
28.01.2008 09:17:50 |
Holger |
|
|
|
28.01.2008 09:29:49 |
Andi |
|
|
|
28.01.2008 09:53:53 |
Holger |
|
|
|
28.01.2008 10:04:09 |
Andi |
|
|
|
28.01.2008 13:26:21 |
Andi |
|
|
|
28.01.2008 16:47:26 |
Holger |
|
|
 Aw:Nachkommastellen werden nicht berücksichtigt |
28.01.2008 13:21:52 |
Andi |
|
|
Von:
Andi |
Datum:
28.01.2008 13:21:52 |
Views:
1521 |
Rating:
|
Antwort:
|
Thema:
Aw:Nachkommastellen werden nicht berücksichtigt |
Hallo nochmal,
verwende jetzt den folgenden Code und habe leider immer noch ein Problem.
Nochmal kurz zum eigentlichem Nutzen des Codes.
Ich habe u.a. die Spalte Name und Betrag.
Name: Betrag:
Testname1 0,25
Testname1 -0,24
Testname2 0,30
Testname1 -0,01
Sobald die Summe (Saldo) der Beträge 0,00 ergibt, soll eine Verschiebung von Tabellenblatt1 in Tabellenblatt2 erfolgen. Also wenn ich hier im Beispiel Testname1 und -0,01 eingebe soll alles was auf den Namen Testname1 lautet in das andere Tabellenblatt verschoben werden.
Dank Holger funktioniert es nun auch z.B. 0,25 einzugeben. Das ging vorher nicht - alles was unter 0,50 war wurde sofort verschoben. Habe alles was auf "as Long" lautete auf "as Double" geändert.
Allerdings funktioniert die Verschiebung nun nicht mehr richtig. Denn wenn ich wie im Beispiel eingebe, müsste alles was Testname1 hat verschoben werden - tut es aber leider nicht.
Kann mir jemand sagen, was ich im Code falsch habe ???
Vielen Dank !!!!!!
Option Explicit
Public Suchbegriff As String 'Kontoname
Private Sub Worksheet_Change(ByVal Target As Range)
'wenn nicht gesetzt, wird ereignis immer wiederholt
Application.EnableEvents = False
Dim Ergebnis As Double 'gezählte Summe
Suchbegriff = ""
Ergebnis = 1
'wenn eingabe in spalte 8, dann zählen
If Target.Column = 8 Then
'suchbegriff von spalte 1 eingegebener zeile
Suchbegriff = Sheets(1).Cells(Target.Row, 1).Value
Ergebnis = WorksheetFunction.SumIf([A:A], Suchbegriff, [H:H])
'MsgBox Ergebnis
End If
'wenn ergebnis gleich 0 dann aktion
If Ergebnis <> 0 Then
Else
übertragen
End If
'wieder aufheben
Application.EnableEvents = True
End Sub
Sub übertragen()
Dim Ausgabezeile As Double 'von blatt erledigte konten
Dim letzteZeile As Double 'von blatt 1
Dim x As Double
Dim Kontrollsumme As Double 'übertragene Summe wird mitgezählt
Kontrollsumme = 0
'MsgBox Suchbegriff
letzteZeile = Sheets(1).Range("A65536").End(xlUp).Row
Ausgabezeile = Sheets("erledigte Konten").Range("A65536").End(xlUp).Row + 1
For x = 2 To letzteZeile
If Sheets(1).Cells(x, 1).Value = Suchbegriff Then
Kontrollsumme = Kontrollsumme + Sheets(1).Cells(x, 8).Value
'ausschneiden und einfügen
With Sheets(1)
.Rows(x).Copy
End With
Sheets("erledigte Konten").Range("A" & Ausgabezeile).Insert
Sheets(1).Rows(x).Delete shift:=xlUp
x = x - 1
Ausgabezeile = Ausgabezeile + 1
End If
Next x
If Kontrollsumme <> 0 Then
MsgBox "Achtung, übertragene Summe ist nicht 0", vbCritical, "Fehler bei Übertragung"
End If
End Sub
Sub test()
Application.EnableEvents = True
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
28.01.2008 08:38:40 |
Andi |
|
|
|
28.01.2008 09:17:50 |
Holger |
|
|
|
28.01.2008 09:29:49 |
Andi |
|
|
|
28.01.2008 09:53:53 |
Holger |
|
|
|
28.01.2008 10:04:09 |
Andi |
|
|
|
28.01.2008 13:26:21 |
Andi |
|
|
|
28.01.2008 16:47:26 |
Holger |
|
|
Aw:Nachkommastellen werden nicht berücksichtigt |
28.01.2008 13:21:52 |
Andi |
|
|