Dropdown

[Redgeier]

Hallo noch einmal.

Ich habe an meinem eigenen Formular noch ein wenig rumgebastelt.

Wenn ich nun nicht aus der Eingabe A3:F3 meine Daten in die Ergebnis-Liste A4:F4 übertragen möchte, sondern aus beispielsweise Daten aus A3, B5, C8, D12, E5 u. F8..

Die Ergebnisliste wäre aber A4:F4..Wie würde das Makro dann aussehen ? Wie gesagt nicht nacheinanderfolgende Zellen wie A3:F3.

Danke..

[Elex]

Hi

Ein Beispielcode dazu wäre der.

Code:

Public Sub Übertragen()
Dim j As Long

j = Sheets("Ergebnis").Cells(Rows.Count, 1).End(xlUp).Row + 1

'alle einzeln Zuordnen
Sheets("Ergebnis").Range("A" & j) = Sheets("Eingabe").Range("A3").Value
Sheets("Ergebnis").Range("B" & j) = Sheets("Eingabe").Range("B5").Value
Sheets("Ergebnis").Range("C" & j) = Sheets("Eingabe").Range("C8").Value
Sheets("Ergebnis").Range("D" & j) = Sheets("Eingabe").Range("D12").Value
Sheets("Ergebnis").Range("E" & j) = Sheets("Eingabe").Range("E5").Value
Sheets("Ergebnis").Range("F" & j) = Sheets("Eingabe").Range("F8").Value

'wenn gewollt dann so leeren
Sheets("Eingabe").Range("A3").ClearContents
Sheets("Eingabe").Range("B5").ClearContents
End Sub

Gruß Elex

[Redgeier]

Hallo Elex,

Ich habe nun Dein geschriebenes Makro auf meine Tabelle angewendet.

So richtig funktioniert es bei mir noch nicht.

Wo steht denn, dass die 1. Eingabe/Übertragung (aus 'Eingabe' A3 (Klasse) beispielsweise bei A4 (Blatt 'Ergebnis' - Klasse) beginnen soll??

Es muss ja etwas mit dem "j" zu tun haben.

j = Sheets ("Ergebnis").Cells (Rows.Count, 1).End (x1Up).Row + 1

Gruß Markus

[Redgeier]

Hier hast Du mal meine Tabelle.

Auf dem Laufzettel sollen die Ergebnisse eingetragen werden und dann in die Tabelle Ergebnisse übertragen werden. 

Irgendwie funktioniert das nicht richtig. 

Danke

[Gast 123]

Hallo

Excel ist wundervoll zum Arbeiten, aber auch manchmal "pingelig" wie eine Frau. (Schuhe abputzen!)   In dem Fall völlig zu Recht!!
Der Code funktioniert einwandfrei brachte mich aber auch ins Grübeln.  Vermutete zuerst Problem mit Verbundenen Zellen!  Aber Nein ...
Das Blatt hat aktiven Blattschutz, vermutlich wegen den Formeln. Aber Spalte A ist nicht zum bearbeiten freigegeben.  Laufzeitfehler!

Kleine Fehler mit grosser Wirkung ....   Frohe Weihnachten aus Ankara.

mfg Gast 123

---

Hier noch eine verkürzte Version, weniger Schreibarbeit:   (d.h., ich bin faul)

Code:

Public Sub Übertragen()
Dim j As Long

j = Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1

'alle einzeln Zuordnen
With Worksheets(1)
  Worksheets(2).Range("B" & j) = .Range("B7").Value
  Worksheets(2).Range("A" & j) = .Range("G7").Value
  Worksheets(2).Range("C" & j) = .Range("C14").Value
  Worksheets(2).Range("F" & j) = .Range("F14").Value
  Worksheets(2).Range("I" & j) = .Range("I14").Value
  Worksheets(2).Range("L" & j) = .Range("C21").Value
  Worksheets(2).Range("O" & j) = .Range("F21").Value
  Worksheets(2).Range("R" & j) = .Range("I21").Value
  Worksheets(2).Range("U" & j) = .Range("C28").Value
End With
End Sub