eigegebene Zahlen mitdokumntieren

Hallo Profis,
habe ien kleines sicherlich leicht lösbares Problem:
In einem Bestimmten Bereich (zB. A2 bis A15) werden Zahlen nacheinander eingegeben und Berechnungen ausgeführt. In Zelle A1 steht eine Versionsnummer. Ist die Berechnung fertig werden diese Zahlen gelöscht, es wird eine neue Versionsnummer generiert und es werden wieder neue Zahlen eingegeben.
Spalte A1 = Version 1
es werden nacheinander z.B. die ´Zahlen 12,14,2 eingegeben.
Nach dem löschen der Zahlen (2.Durchgang):
Spalte A1 = Version 2
es werden nacheinander die Zahle 45, 33,22 eingegeben
Nun möchte ich auf einem anderen Sheet eine s.g. Statistik führen welche Zahlen insgesamt nacheinander eingegebn wurden, dabei möchte ich die Version auch übernehmen.
Dies sollte in etwa so aussehen:
A1 = 12, B1 = Version 1
A2 = 14, B2 = Version 1
A3 = 2, B3 = Version 1
A4 = 45, B4 = Version 2
A5 = 33, B5 = Version 2
etc
Das Abspeichern in die Statistik sollte dann passieren wenn die aktive Zelle verlassen wird, nachdem eine Zahl eingegeben wurde.
Gruß
Stephan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Stephan,
das kann man mit dem nachfolgenden Ereignismakro realisieren, das auf Werteingaben reagiert.
Das Makro muss du im VBA-Editor unter dem Tabellenblatt einfügen in dem du die Eingaben machts.
Gruß
Franz
Ergebnis schaut dann etwa so aus:


Zelle	Wert	Version
$A$2	2	Version 1
$A$3	3	Version 1
$A$6	6	Version 1
$A$7	7	Version 1
$A$4	3	Version 1
$A$3	gelöscht	Version 1
$A$5	5	Version 1
$A$11	6	Version 1
$A$2	3	Version 2
$A$3	5	Version 2
$A$4	6	Version 2
$A$5	7	Version 2
$A$6	8	Version 2
$A$2	gelöscht	Version 2
$A$2	9	Version 2
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wks As Worksheet, Zelle As Range
Set wks = Worksheets("Tab2")                        'Blattname anpassen !!!
If Not Intersect(Target, Range("A2:A15")) Is Nothing _
And Target.Cells.Count = 1 Then
With wks
Set Zelle = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
Zelle.Value = Target.Address
If IsEmpty(Target) Then
Zelle.Offset(0, 1).Value = "Wert gelöscht"
Else
Zelle.Offset(0, 1).Value = Target.Value
End If
Zelle.Offset(0, 2).Value = Range("A1").Value
End With
End If
End Sub

Beliebteste Forumthreads (12 Monate)

eigegebene Zahlen mitdokumntieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

eigegebene Zahlen mitdokumntieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread