Supportnet / Forum / Tabellenkalkulation
habe eine excel-liste mit ca. 4000 einträgen, ein eintrag hat jeweils 2 zeilen,...
Frage
habe ein problem... habe eine excel-liste mit ca. 4000 einträgen, ein eintrag hat jeweils 2 zeilen, nun sollte aber nach jeder ersten zeile eine weitere eingefügt werden. das habe ich mit hilfe von makros gemacht.
nun stehe ich vor dem nächsten problem... die neu eingefügte zeile soll einige standartinhalte von den anderen beiden enthalten.
kann mir da jemand helfen???
[*][quote][sup][i]Admininfo: Artikel editiert. Bitte beachte [url=https://supportnet.de/faqsthread/840][u]folgendes FAQ[/u][/url] für deine nächste Anfrage.[/i][/sup][/quote]
Antwort 1 von LittleT
klar kann dir jemand helfen wenn du jetzt noch die Standardwerte beschreibst und in welche Zelle usw.
Genau Fragen mit Inhalt => genaue Antworten mit Inhalt
Gruß
LittleT
Genau Fragen mit Inhalt => genaue Antworten mit Inhalt
Gruß
LittleT
Antwort 2 von kna_s
ich möchte aus den vorherigen zeilen einige spalteninhalte kopieren...
beispiel: zelleninhalt spalte a -d
es handelt sich bei einer spalte um zahlenformate und die anderen spalten enthalten alphanumerische daten.
danke im voraus
beispiel: zelleninhalt spalte a -d
es handelt sich bei einer spalte um zahlenformate und die anderen spalten enthalten alphanumerische daten.
danke im voraus
Antwort 3 von JoeKe
Hallo kna_s,
wenn ich alles richtig verstnaden habe so:
Option Explicit
Sub zeilen()
Dim loZeile As Long, loLetzte As Long
loZeile = 2
Do
Rem Zeilen einfügen
Rows(loZeile).Insert Shift:=xlDown
Rem In Spalten A-D werden die Werte aus der Zeile darüber eingetragen.
Range(Cells(loZeile, 1), Cells(loZeile, 4)).Value = _
Range(Cells(loZeile - 1, 1), Cells(loZeile - 1, 4)).Value
Rem In Spalte E-H werden die Werte aus der Zeile dadrunter eingetragen
Range(Cells(loZeile, 5), Cells(loZeile, 8)).Value = _
Range(Cells(loZeile + 1, 1), Cells(loZeile + 1, 4)).Value
loLetzte = Cells(Rows.Count, 1).End(xlUp).Row
loZeile = loZeile + 3
Loop While loZeile <= loLetzte
End Sub
Gruß
JöKe
wenn ich alles richtig verstnaden habe so:
Option Explicit
Sub zeilen()
Dim loZeile As Long, loLetzte As Long
loZeile = 2
Do
Rem Zeilen einfügen
Rows(loZeile).Insert Shift:=xlDown
Rem In Spalten A-D werden die Werte aus der Zeile darüber eingetragen.
Range(Cells(loZeile, 1), Cells(loZeile, 4)).Value = _
Range(Cells(loZeile - 1, 1), Cells(loZeile - 1, 4)).Value
Rem In Spalte E-H werden die Werte aus der Zeile dadrunter eingetragen
Range(Cells(loZeile, 5), Cells(loZeile, 8)).Value = _
Range(Cells(loZeile + 1, 1), Cells(loZeile + 1, 4)).Value
loLetzte = Cells(Rows.Count, 1).End(xlUp).Row
loZeile = loZeile + 3
Loop While loZeile <= loLetzte
End Sub
Gruß
JöKe
Antwort 4 von CaroS
Hallo kna_s,
es ist einigermaßen schwer, auf Leute wie Dich richtig zu reagieren, man weiß nicht so recht, ob da Mitleid oder ein scharfer Protest angebracht ist. LittleT bitte Dich kurz, knapp und unmissverständlich um eine Beschreibung, und zwar um eine genaue Beschreibung!
Und was antwortest Du?
Aha, aus den vorherigen Zeilen also. Na bloß gut, dass Du nicht verraten hast, aus wie vielen und aus welchen vorherigen Zeilen. Das Geheimnis ist bei Dir bestimmt besser aufbewahrt als in so einem öffentlichen Forum.
Und dann willst Du immerhin sogar "einige spalteninhalte kopieren". Bevor mich diese präzise Angabe völlig umgehauen hat, habe ich gerade noch mitbekommen, dass es sich dabei wohl um mehrere handeln muss, so in der Größenordnung zwischen 2 und 40.000??
Klar, dass das "beispiel: zelleninhalt spalte a -d" wahrscheinlich auch nicht ernst ganz gemeint ist, ist ja nur ein Beispiel. Du wirst doch hier nicht Deine wahren Absichten verraten, die gehen ja schließlich niemanden was an.
Und wer so lange so gut dicht gehalten hat, wird sich doch zum Schluss nicht noch verquatschen, an welche Stelle in der neuen Zeile die alten Daten hinkopiert werden sollen. Diese Support-Dümmlinge werden natürlich glauben, dass die wieder in die Spalten A bis D kommen. Na ja, sollen sie ruhig, Du weißt ja zum Glück, was wirklich wo hinkommt.
Also ich fühle mich von so einer "genauen" Beschreibung ziemlich ver_rscht und möchte nicht wissen, wie bei Dir eine ungenaue Beschreibung aussieht.
Gruß,
CaroS
es ist einigermaßen schwer, auf Leute wie Dich richtig zu reagieren, man weiß nicht so recht, ob da Mitleid oder ein scharfer Protest angebracht ist. LittleT bitte Dich kurz, knapp und unmissverständlich um eine Beschreibung, und zwar um eine genaue Beschreibung!
Und was antwortest Du?
Zitat:
ich möchte aus den vorherigen zeilen einige spalteninhalte kopieren
ich möchte aus den vorherigen zeilen einige spalteninhalte kopieren
Aha, aus den vorherigen Zeilen also. Na bloß gut, dass Du nicht verraten hast, aus wie vielen und aus welchen vorherigen Zeilen. Das Geheimnis ist bei Dir bestimmt besser aufbewahrt als in so einem öffentlichen Forum.
Und dann willst Du immerhin sogar "einige spalteninhalte kopieren". Bevor mich diese präzise Angabe völlig umgehauen hat, habe ich gerade noch mitbekommen, dass es sich dabei wohl um mehrere handeln muss, so in der Größenordnung zwischen 2 und 40.000??
Klar, dass das "beispiel: zelleninhalt spalte a -d" wahrscheinlich auch nicht ernst ganz gemeint ist, ist ja nur ein Beispiel. Du wirst doch hier nicht Deine wahren Absichten verraten, die gehen ja schließlich niemanden was an.
Und wer so lange so gut dicht gehalten hat, wird sich doch zum Schluss nicht noch verquatschen, an welche Stelle in der neuen Zeile die alten Daten hinkopiert werden sollen. Diese Support-Dümmlinge werden natürlich glauben, dass die wieder in die Spalten A bis D kommen. Na ja, sollen sie ruhig, Du weißt ja zum Glück, was wirklich wo hinkommt.
Also ich fühle mich von so einer "genauen" Beschreibung ziemlich ver_rscht und möchte nicht wissen, wie bei Dir eine ungenaue Beschreibung aussieht.
Gruß,
CaroS
Antwort 5 von kna_s
vielen dank und sorry für die unausführliche beschreibung....