Macro

[wirtzwiwi]

Hallo zusammen,
ich habe mir eine eine Eingabemaske erstellt und mein Problem ist das das Macro immer die erste Zelle und nicht die leere darunter.
Wie kann ich dem Macro mitteilen das er die nächste leere Zelle nehmen soll.
Mein Macro sieht so aus.
 

Sub Eingaabe()
'
'

'Sub Eingaabe()
    Range("N22").Select
    Selection.Copy
    Range("B9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("N24").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("N26").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("D9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("N28").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("N22:N28").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("N22").Select
End Sub

Ich hoffe es hat einer eine Idee
Gruß Wirtzwiwi

[oee]

Das Makro macht doch nur das, was du (bzw der Makrorecorder) programmiert hast.
Außerdem hab ich keine Ahnung, was du mit " daß er die nächste leere Zelle nehmen soll. " meinst.

[wirtzwiwi]

Hallo,
ich gebe in der Eingabemaske Daten ein, die dann in einer Liste eingetragen werden.
Er soll wenn ich eine neue Eingabe mache in der Liste in die nächste leere Zelle die eingabe einträgt.

Gruß wirtzwiwi

[Klaus-Dieter]

Hallo,

da werde ich nicht schlau draus. Beschreibe bitte mal, was du machen möchtest, was kopierst du wo und wo soll das hin. Eventuell legst du eine Datei an, wo man das nachvollziehen kann. Warum kopierst du erst einzelne   Zeilen und dann die noch mal mehrere Zellen im gleichen Bereich?

[oee]

DAS reicht völlig:

Code:

Prublic Sub Sub Eingaabe()
  Dim lz, z, s
  s = 2
  lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
  For z = 22 To 28 Step 2
      Range("N" & z).Copy
      Cells(lz, s).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
      s = s + 1
  Next z
    Range("N22:N28").ClearContents
    Range("N22").Select
End Sub

[Klaus-Dieter]

Code:

gelöscht, hatte was übersehen

[oee]

Noch kürzer:

Code:

Public Sub Sub Eingaabe()
  Dim lz, z, s
  s = 2
  lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
  For z = 22 To 28 Step 2
      Range("N" & z) = Cells(lz, s).Value
      s = s + 1
  Next z
    Range("N22:N28").ClearContents
    Range("N22").Select
End Sub

---

Dann hast du aber den Code nicht richtig gelesen.

[wirtzwiwi]

Hier mal ein Beispiel meiner Tabelle

[oee]

Ich habe dir doch schon die Lösung gepostet - soll ich sie etwa auch noch einbauen?

---

Ich bin raus.
Die Datei hat doch nix mit dem Code zu tun. N22 ? Da ist doch nix!

[wirtzwiwi]

Sorry leute,
das wird mal meine Richtige Datei.
Ich möchte nur wenn ich in dem Daten Maske rts die Daten eintrage, dass sie dann links indie Zellen kopiert werden.
Und wenn ich neue Daten eintrage, dass die automatisch in der nächtsen Zelle kopiert werden.
Ich bekomme es leider nicht hin, darum Bitte ich um Hilfe.

Danke