Selbst anpassende Tabelle

[Bookshelf3011]

Hallo und schöne Ostern zusammen,

per Button möchte ich einen Wert (der später für eine Diagrammabfrage genutzt wird) in eine Tabelle mit maximal zehn Einträgen schreiben. Das er sich immer die nächste freie Zelle nimmt,
bekomme ich auch noch hin. Nun ist meine Frage:

Wie (oder geht das überhaupt) kann ich ihm sagen, dass er, sobald die Zelle voll ist, er den ersten Wert löscht, die verbliebenen neun Einträge noch oben verschiebt und somit quasi die letzte
der zehn Zellen mit dem aktuellsten Wert beschreibt?

Vielen Dank und freundlichen Gruß

Bookshelf3011

[BoskoBiati]

Hi,

Das er sich immer die nächste freie Zelle nimmt,

bekomme ich auch noch hin.

Dann zeig das mal, dann kann man den Rest dazubasteln.

[Bookshelf3011]

Hallo BoskoBiati,

das ist der bislang von mir verwendete Code:

Code:

Option Explicit

Public Sub EintragfuerDiagramm()
Dim strDatum As String
Dim strWert As String
Dim strInbox As String

strDatum = InputBox("Bitte aktuelles Datum eingeben" & vbCrLf & "Format: dd.mm.yyyy")
strWert = InputBox("Bitte Wert eingeben")

If strDatum = "" Or strWert = "" Then
 MsgBox "Es wurde kein Datum oder Wert eingegeben, bitte Vorgang wiederholen!"
 Exit Sub
End If

Range("C" & Range("C10").End(xlUp).Row + 1).Value = strDatum
Range("D" & Range("D10").End(xlUp).Row + 1).Value = strWert
End Sub

Gruß Bookshelf3011

[atilla]

Hallo,

wenn da steht: "...aktuelles Datum...", ist es das heutige Datum?
Hat jetzt nichts mit dem eigentlichen Problem zu tun, aber das kann man bei der Gelegenheit auch mit berücksichtigen.

[BoskoBiati]

Hi,

ungetestet:

Code:

Option Explicit


Public Sub EintragfuerDiagramm()
Dim strDatum As String
Dim strWert As String
Dim strInbox As String
dim loLetzte as long
strDatum = InputBox("Bitte aktuelles Datum eingeben" & vbCrLf & "Format: dd.mm.yyyy")
strWert = InputBox("Bitte Wert eingeben")
loLetzte=cells(rows.count,3).end(xlup).row

If strDatum = "" Or strWert = "" Then
 MsgBox "Es wurde kein Datum oder Wert eingegeben, bitte Vorgang wiederholen!"
 Exit Sub
End If
if loletzte=10 then
rows(1).entirerow.delete
loletzte=9
end if
cells(loletzte+1,3)+1 = strDatum
cells(loletzte+1,3)+1 = strWert
End Sub

[atilla]

Hallo,

von mir eine Lösung ohne Löschen von Zeilen/Zellen:

Code:

Public Sub EintragfuerDiagramm()
  Dim lngZ As Long
  Dim strDatum As String
  Dim strWert As String
  Dim strInbox As String

  lngZ = Range("C10").End(xlUp).Row
    
  strDatum = InputBox("Bitte aktuelles Datum eingeben" & vbCrLf & "Format: dd.mm.yyyy")
  strWert = InputBox("Bitte Wert eingeben")

  If strDatum = "" Or strWert = "" Then
   MsgBox "Es wurde kein Datum oder Wert eingegeben, bitte Vorgang wiederholen!"
   Exit Sub
  End If

  If lngZ > 1 Then
    Range("C" & lngZ + 1).Value = strDatum
    Range("D" & lngZ + 1).Value = strWert
  Else
    Range("C2:D9").Value = Range("C3:D10").Value
    Range("C10").Value = strDatum
    Range("D10").Value = strWert
  End If
 
End Sub

Ich gehe davon aus, dass Deine Daten ab Zeile 1 in Spalte C stehen und in Zeile 1 Überschriften sind.
Mit dem Datum musst Du Dich äußern.

[Bookshelf3011]

Hallo atilla,

mit dem Datumsfeld hast du recht, hier soll das aktuelle Datum stehen. Wenn ich deinen Code verwende, trägt mir Excel die Daten zuerst in "C10-D10" ein und bei 
erneutem Eintrag verschiebt er diese in "C9-D9". Soweit genau das was ich gesucht habe...
Trage ich jetzt nun allerdings einen dritten Wert ein, überschreibt er mir die beiden vorhandenen, lässt also nie mehr als zwei Einträge zu. Kann es sein, dass ich irgendetwas
im Code berücksichtigen muss?

Vielen Dank und freundlichen Gruß

Bookshelf3011

[atilla]

Hallo,


Hast Du meine Vorgaben beachtet, welche am Ende meines Beitrags stehen?

Sonst, bitte ein Beispiel einstellen.

[Rabe]

Hi,

wenn das "aktuelle Datum" das heutige Datum ist, kannst Du auch einfach ohne Inputbox schreiben:
strDatum = Date

[Bookshelf3011]

Hallo atilla,

jetzt funktioniert es. Ich musste nur folgendes anpassen (wahrscheinlich meintest du das auch...!?), damit es wie gewünscht funktioniert.

Vorher:

Code:

Public Sub EintragfuerDiagramm()
 Dim lngZ As Long
 Dim strDatum As String
 Dim strWert As String
 Dim strInbox As String

 lngZ = Range("C10").End(xlUp).Row

Nachher:

Code:

Public Sub EintragfuerDiagramm()
 Dim lngZ As Long
 Dim strDatum As String
 Dim strWert As String
 Dim strInbox As String

 lngZ = Range("C1:C10").End(xlUp).Row

Vielen Dank und einen schönen Abend euch allen.

Gruß Bookshelf3011