Datenübernahme VBA per Schaltfläche

Hallo Zusammen,
etwas kniffliges für mich, aber sicher einfach für VBA-Kenner:
In anhängender Liste soll folgendes passieren:
Die Daten aus "Datenpflege!C12", ´"Datenpflege!G12", "Datenpflege!K12" und "Datenpflege!N12"
sollen mittels Auslösung eines Command-Buttons unterhalb der vier Felder in die Zellen
"Datenquelle!B3", "Datenquelle!C3!", "Datenquelle!D3!" und "Datenquelle!F3" kopiert werden.
Wenn eines der Felder C12/G12/K12/N12 leer ist, soll eine Fehlermeldung kommen, kopiert werden soll in diesem Fall nichts.
Nach Datenübernahme sollen die Felder C12/G12/K12/N12 gelöscht werden, so dass neue Daten eingeben werden können welche dann bei erneuter Datenübernahme logischerweise in die Felder unter den bereits übernommenen Daten kopiert werden (B4/C4/D4/F4 und so weiter).
Der vorhandene VBA-Code scheint leider dies nicht so richtig zu tun, da er immer das letzte Feld auslässt. Dieses bezieht die Daten allerdings nicht durch eingabe, sondern durch Zellendropown (Gültigkeit/Liste)
Hat jemand eine Lösung für mich?
LG und vielen Dank,
Sascha
https://www.herber.de/bbs/user/66939.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Sascha,
damit eine Prozedur das macht was man möchte, muss ja zumindest der Ablauf der Aktivitäten in der richtigen Reihenfolge sein. also erst einmal die Eingaben auf Vollständigkeit prüfen und dann Werte übertragen.
Außerdem erschwert das unnötige Verwenden von verbundenen Zellen die Programmierung.
Gruß
Franz

Private Sub CommandButton1_Click()
Dim Fx, SpaltenPflege, SpaltenQuelle, N As Integer
Dim Zeile As Long
Dim msgText As String
Dim wksPflege As Worksheet, wksQuelle As Worksheet
Set wksPflege = Worksheets("Datenpflege")
Set wksQuelle = Worksheets("Datenquelle")
Fx = Array("die Rechnungsnummer", "das Lieferdatum", "der Rechnungsbetrag", _
"die Kontonummer")
SpaltenPflege = Array(3, 7, 11, 14) 'Spalten in Datenpflege (C, G, K, N)
Const ZeilePflege As Long = 12 'Eingabezeile im Blatt Datenpflege
SpaltenQuelle = Array(2, 3, 4, 6) 'Spalten in Datenquelle (B, C, D, F)
'Eingaben Prüfen
For N = LBound(SpaltenPflege) To UBound(SpaltenPflege)
If msgText = "" Then
'Zelle mit unvollständiger Eingabe selektieren
wksPflege.Cells(ZeilePflege, SpaltenPflege(N)).MergeArea.Select
End If
If IsEmpty(wksPflege.Cells(ZeilePflege, SpaltenPflege(N))) Then
msgText = msgText & vbLf & "  - " & Fx(N)
End If
Next
If msgText  "" Then
'Fehlermeldung anzeigen
msgText = "Zur Übernahme ist " & msgText & vbLf & " notwendig!"
MsgBox msgText, vbInformation + vbOKOnly, "Fehler!"
Else
'Daten übertragen
With wksQuelle
'Nächste freie Zeile im Blatt Datenquelle
Zeile = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
'Daten eintragen
For N = LBound(SpaltenPflege) To UBound(SpaltenPflege)
If SpaltenPflege(N) = 7 Then 'Lieferdatum
.Cells(Zeile, SpaltenQuelle(N)) = _
wksPflege.Cells(ZeilePflege, SpaltenPflege(N)) + 21
Else
.Cells(Zeile, SpaltenQuelle(N)) = _
wksPflege.Cells(ZeilePflege, SpaltenPflege(N))
End If
'Inhalte in Eingabezelle löschen
wksPflege.Cells(ZeilePflege, SpaltenPflege(N)).MergeArea.ClearContents
Next
End With
Range("C12").Select
End If
Set wksPflege = Nothing
Set wksQuelle = Nothing
End Sub

Beliebteste Forumthreads (12 Monate)

Datenübernahme VBA per Schaltfläche

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datenübernahme VBA per Schaltfläche

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread