Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wenn Zelle dann kopier in Tabelle

Wenn Zelle dann kopier in Tabelle
Sascha
Hallo Forum
ich komme mal wieder nicht weiter hoffe das ich es richtig erkläre und ich von euch hilfe bekomme.
Also ich habe eine Exceldatei die per Makro Daten von einer TXT datei in Excel einfügt, das geht gut.
Nun will ich nach dem einfügen der txt Daten diese in ein anderes Tabellenblatt bringen aber nicht in der gleichen Spaltenreihenfolge sondern so
Import2 B41 ist dann Monatsübersicht D nächste frei zeile.
Import2 C41 ist dann Monatsübersicht E nächste frei zeile.
Import2 D41 ist dann Monatsübersicht I nächste frei zeile.
Import2 G41 ist dann Monatsübersicht J nächste frei zeile.
Import2 I41 ist dann Monatsübersicht H nächste frei zeile.
Import2 J41 ist dann Monatsübersicht F nächste frei zeile.
Import2 K41 ist dann Monatsübersicht K nächste frei zeile.
Import2 L41 ist dann Monatsübersicht P nächste frei zeile.
Import2 M41 ist dann Monatsübersicht Q nächste frei zeile.
Nach dem Übertrag in das Tabellenblatt Monatsübersicht können die Daten in Import2 gelöscht werden.
Nun hoffe ich das das jemand lösen kann und meine frage richtig formoliert ist
https://www.herber.de/bbs/user/68874.zip
Grüsse Sascha

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Daten in andere Tabelle übertragen
30.03.2010 05:58:31
ChristianM
Hallo Sascha,
warum dich gerade die Zeile 41 interessiert ist mir entgangen...

Option Explicit
Sub VerteilDat()
Dim lngR As Long
Dim wks As Worksheet
Set wks = Sheets("Import2")
With Sheets("Monatsübersicht")
lngR = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
If lngR > .Rows.Count Then MsgBox "letzte Zeile belegt": Exit Sub
.Cells(lngR, 4) = wks.Cells(41, 2)
.Cells(lngR, 5) = wks.Cells(41, 3)
.Cells(lngR, 9) = wks.Cells(41, 4)
.Cells(lngR, 10) = wks.Cells(41, 7)
.Cells(lngR, 8) = wks.Cells(41, 9)
.Cells(lngR, 6) = wks.Cells(41, 10)
.Cells(lngR, 11) = wks.Cells(41, 11)
.Cells(lngR, 16) = wks.Cells(41, 12)
.Cells(lngR, 17) = wks.Cells(41, 13)
End With
wks.Cells.Clear
Set wks = Nothing
End Sub
Gruß
Christian
Anzeige
AW: Daten in andere Tabelle übertragen
30.03.2010 20:47:33
Sascha
Hallo Christian
So ein schitt schon wieder was vergessen zu erwähnen.
Die Zeile 41 ist mir wurscht aber die genannten Spalten nicht.
Wenn in Spalte was steht dann kopie
Import2 B ist dann Monatsübersicht D nächste frei zeile.
Import2 C ist dann Monatsübersicht E nächste frei zeile.
Import2 D ist dann Monatsübersicht I nächste frei zeile.
Import2 G ist dann Monatsübersicht J nächste frei zeile.
Import2 I ist dann Monatsübersicht H nächste frei zeile.
Import2 J ist dann Monatsübersicht F nächste frei zeile.
Import2 K ist dann Monatsübersicht K nächste frei zeile.
Import2 L ist dann Monatsübersicht P nächste frei zeile.
Import2 M ist dann Monatsübersicht Q nächste frei zeile.
Das löschen der Daten von Import2 nach dem Übertragen löscht leider alles auch Formeln die in der Tabelle stehen.
Grüsse Sascha
Anzeige
AW: Daten in andere Tabelle übertragen
31.03.2010 06:01:21
ChristianM
jo, dann bau halt 'ne Schleife drum...

Option Explicit
Sub VerteilDat()
Dim i As Long, k As Long
Dim wks As Worksheet
Set wks = Sheets("Import2")
With Sheets("Monatsübersicht")
k = .Cells(.Rows.Count, 4).End(xlUp).Row
For i = 3 To wks.Cells(.Rows.Count, 1).End(xlUp).Row
k = k + 1
.Cells(k, 4) = wks.Cells(i, 2)
.Cells(k, 5) = wks.Cells(i, 3)
.Cells(k, 9) = wks.Cells(i, 4)
.Cells(k, 10) = wks.Cells(i, 7)
.Cells(k, 8) = wks.Cells(i, 9)
.Cells(k, 6) = wks.Cells(i, 10)
.Cells(k, 11) = wks.Cells(i, 11)
.Cells(k, 16) = wks.Cells(i, 12)
.Cells(k, 17) = wks.Cells(i, 13)
Next
End With
wks.Columns(1).Resize(, 10).Clear
Set wks = Nothing
End Sub
Gruß
Christian
BTW: bevor du dir um Copyright sorgen machst, würde ich's mal mit Rechtschreibung probieren...
Anzeige

381 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige