wenn Zeile voll, nächste Zeile verwenden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael!
Ohne genauere Angaben, kann ich dir nur Beisielhaft zeigen wie's geht!

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub DatenUebernehmen()
Dim objSh As Worksheet
Dim lngFirst As Long

On Error GoTo ErrExit

If Sheets("Datenpflege").Range("A2") = "" Then Exit Sub

Set objSh = Sheets(Format(Date, "mmmm"))

With objSh
  lngFirst = .Cells(Rows.Count, 1).End(xlUp).Row + 1
  .Cells(lngFirst, 1) = Date 'Spalte "A" - Datum
  .Cells(lngFirst, 2) = Sheets("Datenpflege").Range("A2") 'Spalte "B" - erste Datenzelle
  .Cells(lngFirst, 3) = Sheets("Datenpflege").Range("B2") 'Spalte "C" - zweite Datenzelle
  .Cells(lngFirst, 4) = Sheets("Datenpflege").Range("C2") 'Spalte "D" - dritte Datenzelle
End With

Sheets("Datenpflege").Range("A2:C2").ClearContents

Set objSh = Nothing

Exit Sub

ErrExit:

If Err.Number > 0 Then
  MsgBox Err.Number & vbLf & Err.Description, 48, "Fehler"
End If

End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Hallo Sepp, erstmal Vielen Dank für deine Mühe !!! Leider kann ich mit dem Code in der Form nocht nicht anfangen. Daher will ich versuchen, noch etwas genauer mein Anliegen zu Schildern. Wie bereits gesagt gibt es 13 Tabellenblätter ( 1x Datenpflege + 12 Monatstabellen Januar - Dezember). Die Tabelle Datenblatt sollte, wenn nicht zuviel Umstand, sich das aktuelle Tagesdatum selber ziehn. Das Datum sollte sollte in der Tabelle Datenpflege erscheinen und an Position "B2" stehen. Weitere Datenfelder werden im Tabellenblatt Datenpflege folgende Zeilen sein:
- A11 bis A37 (Variable A - In diesen Zeilen können Zahlen aber auch Ziffern stehen)
- B11 bis B37 (Variable B - In diesen Zeilen werden ausschließlich Personennamen stehen)
(ungerade)
- B12 bis B38 (Variable C - In diesen Zeilen werden ausschließlich Datumsangaben stehen)
(gerade)
- die Spalten C,D,E,F,G,H,I,J,K,L,M,N werden je nach Bedarf von Zeile 11 bis 37 ausschließlich mit Zahlenwerten befüllt
An dieser Stelle angekommen, wünsche ich mir, wenn Daten wie oben beschrieben, in die Tabelle Datenpflege eingegeben wurden, das ich per VBA diese je nach Tagesdatum ( z.B. Tagesdatum 15.01.2006 dann sollen die Werte in Tabelle Januar usw...) in die entsprechende Monatstabelle übergeben könnte. Dabei sollte berücksichtigt werden, das die Wert untereinander geschrieben werden, so das eine manuelle korrektur bei fehlerhafter Eingabe in der Tabelle Datenpflege korriegiert werden kann.
So ich hoffe ich konnte mein Problem noch etwas verdeutlichen.
Mfg Michael

Beliebteste Forumthreads (12 Monate)

wenn Zeile voll, nächste Zeile verwenden

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread