MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 11.01.2019, 11:20   #1
Gogi01
Neuer Benutzer
Neuer Benutzer
Standard Excel 2007/2010 - Einen Text alle 2 Zeilen einfügen

Hallo,
habe folgendes Anliegen. Möchte in einer Tabelle alle 2 Zeilen eine neue Zeile einfügen mit einem gewissen Inhalt.

Würde dies auch funktionierenm, wenn ich alle 2 Zeilen 2 neue Zeilen mit bestimmten Inhalt einfügen möchte?

Hoffe Ihr versteht was ich meine :-)
vorher nachher
Text1 Text1
Text2 Neuer Wert1 (neue eingefügte Zeile)
Text3 Neuer Wert2 (neue eingefügte Zeile)
Text4 Text2
Neuer Wert1 (neue eingefügte Zeile)
Neuer Wert1 (neue eingefügte Zeile)
Text3
Gogi01 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.01.2019, 11:51   #2
MisterBurns
MOF Meister
MOF Meister
Standard

Um deine Frage zu beantworten: Ja, das geht ganz einfach mittels VBA.

__________________

Schöne Grüße
Berni
MisterBurns ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.01.2019, 17:40   #3
Drogist
MOF Profi
MOF Profi
Standard

__________________

Internette Grüße
Drogist

(Gut) Gefunden bei Storax: "This isn't a code writing service, you need to do some research and have a go at writing some of your own code."
Ich verwende Excel 2016. Wenn du keine Angaben über deine Version gemacht hast gehe ich davon aus, dass auch du mindestens diese Version hast.

¿¿ Wer schützt mich vor den Datenschützern ??
Drogist ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.01.2019, 22:42   #4
Gogi01
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hey,
genau habe excel 2016. Habe gehofft, dass es per vba klappt..
Hast du nen Beispiel für mich 😕
Gogi01 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.01.2019, 09:22   #5
MisterBurns
MOF Meister
MOF Meister
Standard

Du hast meinen Sarkasmus offensichtlich nicht verstanden. Meine Antwort stimmt, das ist kein Problem mit VBA.
Aber nein, ich habe nicht "nen Beispiel" für dich, denn deine Angaben sind erstens viel zu vage und können nicht eindeutig ausgelegt werden. Zweitens fehlt eine Beispielmappe, die mindestens 10 Beispieldatensätze enthält sowie das gewünschte Ergebnis.

Also, wenn du eine Lösung wünschst, erkläre ordentlich, was du brauchst und lade eine Beispielmappe hoch.

__________________

Schöne Grüße
Berni
MisterBurns ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.01.2019, 11:26   #6
Gogi01
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ok kein Problem, habe da schon was hinbekommen, muss den Rest gezeigt bekommen. Montag setze ich es sofort rein ������
Gogi01 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.01.2019, 09:02   #7
Gogi01
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Beispiel

Hallo,
so habe mal eine Mappe erstellt.
Tabellenblatt 1 zeigt die Liste
Tabellenblatt 2 zeigt die Werte die in das Tabellenblatt 1 hinzugefügt werden soll, d.h. es soll alle 2 Zeilen eine Zeile hinzugefügt werden und der Inhalt der Zelle hinzugefügt werden.
Tabellenblatt 3 zeigt das Ergebnis.

Wie ich alle 2 Zeilen eine Leerzeile eingeben habe ich schon gefunden:
Public Sub ZeilenEinfügen()
Dim lngRow As Long

lngRow = 2

Application.ScreenUpdating = False
With Worksheets("Tabelle1")
Do Until .Cells(lngRow, "A") = ""
.Rows(lngRow).Resize(1).Insert
lngRow = lngRow + 2
Loop
End With

Application.ScreenUpdating = True
End Sub

Wie schaffe ich es nur, dass er mir keine Leerzeilen eifügt sondern gleichzeitig mit Inhalt füllt :-(

Hoffe das reicht als Info, falls nicht dann meld dich bitte...
Angehängte Dateien
Dateityp: xlsx Beispiel.xlsx (9,9 KB, 2x aufgerufen)
Gogi01 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.01.2019, 12:13   #8
MisterBurns
MOF Meister
MOF Meister
Standard

Ich komm erst heute Abend dazu, bitte bis dahin um Geduld (bzw. vielleicht findet sich ja ein anderer User, der schneller ist)

__________________

Schöne Grüße
Berni
MisterBurns ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.01.2019, 12:56   #9
Werner.M
MOF User
MOF User
Standard

Hallo,

so:
PHP-Code:

Option Explicit

Public Sub Test()
Dim loLetzte As LongAs LongAs Long

1

Application
.ScreenUpdating False

With Worksheets
("Tabelle1")
    
loLetzte = .Cells(.Rows.Count1).End(xlUp).Row
    
For 1 To loLetzte
        Worksheets
("Tabelle3").Cells(z1) = .Cells(i1)
        
Worksheets("Tabelle3").Cells(11) = Worksheets("Tabelle2").Cells(i1)
        
2
    Next i
End With
End Sub 
Gruß Werner
Werner.M ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.01.2019, 13:51   #10
Gogi01
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hey Super vielen lieben DANK, perfekt :-)
Nun ist ein neues Problem aufgetaucht :-( In die Tabelle 1 müssen 3 Zeilen mit der Tabelle 2 zusammengeführt werden. OK wäre es auch wenn man aus der Tabelle 2 immer 3 Zeilen ausschneidet und alle 2 Zeilen in die Tabelle 1 einfügt.
Verständlich :-/ ?

Tabelle 1 Tabelle 2 (Ergebnis)
1 1A 1
2 1B 1A
3 1c 1B
4 2A 1C
5 2B 2
6 2C 2A
7 3A 2B
8 3B 2C
9 3C 3
Gogi01 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.01.2019, 14:50   #11
Werner.M
MOF User
MOF User
Standard

Hallo,

im Moment verstehe ich leider nur "Bahnhof".

Bitte Beispielmappe mit Vorlage und Wunschergebnis.

Gruß Werner
Werner.M ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.01.2019, 07:23   #12
Gogi01
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Werner,
natürlich mach ich das...

Tabellenblatt1 und Tabellenblatt2 haben die Daten
Tabellenblatt3 zeigt das Ergebnis.
Was soll passieren:
In jeder 2. Zeile in Tabellenblatt1 sollen immer 4 Datensätze aus Tabellenblatt 2 eingeschoben werden.

Ich denke es gibt 2 Möglichkeiten, entweder man baut die Liste in Tabellenblatt3 auf oder man arbeitet mit auschneiden und Zellen einfügen.

Hoffe ihr könnt da helfen :-/
Angehängte Dateien
Dateityp: xlsx Beispiel.xlsx (10,1 KB, 1x aufgerufen)
Gogi01 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:53 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.