22.11.2014, 11:19
[attachment=862]Hallo Profis,
ich bin sicher, das es hier ne Menge davon gibt und mir einer davon helfen kann. :)
Ich bin purer Anfänger in VBA-Codes.
Ich habe mit unterem Code folgendes Problem:
Es sollen mehrere Zellwerte kopiert werden und im gleichem Tabellenblatt ab A7 bis F7 eingefügt werden.
Der Code funktioniert soweit "Ja", doch er soll beim nächsten Aufruf unter der nächst freien Zeile (also unter A7) die Werte eintragen. Das klappt bei also noch nicht, es wird immer wieder die Zeile A7 bis F7 überschrieben. :(
Ich hoffe, das mir jemand hier schnell eine Lösung geben kann. Vielleicht gibt es auch noch einen besseren Code?
Hier mein Code:
Ich habe mal einem Bildausschnitt hier mit beigefügt.
Ich hoffe, das sich jemand mit meinem Problem befassen möchte. :)
Ich bedanke mich jetzt schon ganz fest dafür.
Lg Mike
Code strukturiert dargestellt durch 3. Button von rechts im Beitragsformular: #
photo Raute_zps3ee56209.jpg
Moderator [Bild: smilie.php?smile_ID=1810]
ich bin sicher, das es hier ne Menge davon gibt und mir einer davon helfen kann. :)
Ich bin purer Anfänger in VBA-Codes.
Ich habe mit unterem Code folgendes Problem:
Es sollen mehrere Zellwerte kopiert werden und im gleichem Tabellenblatt ab A7 bis F7 eingefügt werden.
Der Code funktioniert soweit "Ja", doch er soll beim nächsten Aufruf unter der nächst freien Zeile (also unter A7) die Werte eintragen. Das klappt bei also noch nicht, es wird immer wieder die Zeile A7 bis F7 überschrieben. :(
Ich hoffe, das mir jemand hier schnell eine Lösung geben kann. Vielleicht gibt es auch noch einen besseren Code?
Hier mein Code:
Code:
Sub Nächster_Artikel()
Dim wksEingabe As Worksheet
Dim wksListe As Worksheet
Dim lngZeile As Long, rngZelle As Range
Set wksEingabe = Worksheets("Einkauf") 'Eingabetabellenblatt
Set wksListe = Worksheets("Einkauf") 'Tabellenblatt in das die Daten geschrieben werden _
sollen
With wksListe
'nächste freie Zeile in Liste
Set rngZelle = .Cells.Find(What:="*", after:=.Range("A1"), LookIn:=xlFormulas, _
lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious)
If rngZelle Is Nothing Then
lngZeile = 1
Else
lngZeile = rngZelle.Row + 1
End If
.Cells(lngZeile, 1).Value = wksEingabe.Range("K5")
.Cells(lngZeile, 2).Value = wksEingabe.Range("K6")
.Cells(lngZeile, 3).Value = wksEingabe.Range("K10")
.Cells(lngZeile, 4).Value = wksEingabe.Range("K20")
.Cells(lngZeile, 5).Value = wksEingabe.Range("K14")
.Cells(lngZeile, 6).Value = wksEingabe.Range("K22")
'usw.
End With
End Sub
Ich habe mal einem Bildausschnitt hier mit beigefügt.
Ich hoffe, das sich jemand mit meinem Problem befassen möchte. :)
Ich bedanke mich jetzt schon ganz fest dafür.
Lg Mike
Code strukturiert dargestellt durch 3. Button von rechts im Beitragsformular: #
photo Raute_zps3ee56209.jpg
Moderator [Bild: smilie.php?smile_ID=1810]