Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1992to1996
1992to1996
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

einzelne Zellen kopieren und in verbundene Zellen einfügen

Forumthread: einzelne Zellen kopieren und in verbundene Zellen einfügen

einzelne Zellen kopieren und in verbundene Zellen einfügen
08.11.2024 10:30:27
Haxeman
Hallo Zusammen,
ich hoffe Ihr könnt mir weiterhelfen.
ich habe alles mögliche versucht leider bis jetzt ohne Erfolg :-( und kenne mich Makros gar nicht aus.
ich bereite für die Kollegen die Exceltabelle für die tägliche Dokumentation und mir werden nur die Informationen in der Tabelle 1 zur Verfügung gestellt und ich muss die Daten in die Score Tabelle eintragen - Ich trage nur folgende Daten: Spalte A B C ( Mitarbeiter, P-No. und Gruppe) und Datum, Tag und Woche und hier ist das Problem, dass Spalten/ Zeilen - D E F - 9 10 11 usw verbundene Zeilen sind und mit kopieren einfügen nicht funktioniert.
Habe auch mit INDEX formel versucht und bekomme eine Fehlermeldung.
Die Tabelle, die ich zur Verfügung gestellt bekomme, ist immer unterschiedlich lang und unterschiedlich viele Mitarbeiter und Gruppen.
Hier ist die Bespieldatei: https://www.herber.de/bbs/user/173463.xlsx

Vielen Dank,
Haxeman
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: einzelne Zellen kopieren und in verbundene Zellen einfügen
08.11.2024 11:07:15
Haxeman
Würde mich sehr freuen, wenn Ihr mir dabei helfen könnt.

Vielen Dank an alle
AW: einzelne Zellen kopieren und in verbundene Zellen einfügen
08.11.2024 16:54:34
Piet
Hallo

hier mal ein Erstversuch einer Lösung. Das Makro löscht alle Daten in Zeile 9,10,11 und fügt sie neu ein.
Verändert sich dabei der Starttermin wird die neue Startspalte in Zeile 6 angezeigt. + Msgbox Hinweis.
Ich prüfe aber nicht ob ich Spalten löschen oder neu einfügen muss! Das bleibt Handarbeit.
https://www.herber.de/bbs/user/173470.xlsm

mfg Piet
Anzeige
AW: einzelne Zellen kopieren und in verbundene Zellen einfügen
08.11.2024 21:03:38
Haxeman
Hallo Piet,

vielen lieben Dank. Das ist doch fast perfekt.
Kannst du bitte auch einmal nachschauen, ob du aus Tabelle 1 Spalten: I, J und K auch automatisch in der Score Tabelle ausfüllen lässt, zb. Spalte A, B und C, Zeile 13, 16, 19, 22 usw. hier fängt es immer ab Zeile 13 und jede 3 Zeile kommt neue Mitarbeiter Nr, P-No und Gruppe.
Das wäre super, wenn das auch klappen könnte.

Viele Grüße,
Haxeman
Anzeige
AW: einzelne Zellen kopieren und in verbundene Zellen einfügen
09.11.2024 11:55:31
Piet
Hallo

auch das ist kein Problem, neuer Code s. unten. Im Beispiel reichten die ausgefüllten Zeilen nicht aus.
Wenn Zeilen fehlen musst du sie bitte von Hand kopieren und einfügen. Nullwerte von Hand löschen.

mfg Piet 

Option Explicit     '9.11.24  Piet  Herber Forum

Dim AC As Range, lz1 As Long

Dim Wert As Variant, z As Long





Sub Score_ausfüllen()

Dim Score As Worksheet, s, LSp

Set Score = Worksheets("Score")

'alte Liste komlett löschen

LSp = Score.Cells(9, Columns.Count).End(xlToLeft).Column

Score.Range("D10").Resize(2, LSp).ClearContents

lz1 = Score.Cells(Rows.Count, 1).End(xlUp).Row

Score.Range("A13:C" & lz1).ClearContents

s = 4  '1.Spalte für Datum "D"

z = 13 '1.Zeile für Mitarbeiter



With Worksheets("Tabelle 1")

     lz1 = .Cells(Rows.Count, 1).End(xlUp).Row

     Wert = .Range("E2").Value

     '1. Schleife für Datum, Tag, Woche Einträge

     For Each AC In .Range("C2:C" & lz1)

         If AC.Offset(0, -2) = 1 And _

            Score.Cells(8, s) > "Start" Then

            Score.Cells(6, s) = "Start"

            Score.Cells(6, s).Font.Bold = True

            MsgBox "Startzelle verschoben!"

         End If

         Score.Cells(9, s) = AC.Value

         Score.Cells(10, s) = AC.Offset(0, -2)

         If Wert > AC.Offset(0, 2) Then

            Wert = AC.Offset(0, 2)

            Score.Cells(11, s) = Wert

         End If

         s = s + 3

     Next AC



     '2. Schleife für Mitarbeiter, P-No, Gruppe Einträge

     lz1 = .Cells(Rows.Count, 9).End(xlUp).Row  'Spa. I

     For Each AC In .Range("I2:I" & lz1)

         Score.Cells(z, 1) = AC.Value

         Score.Cells(z, 2) = AC.Cells(1, 2)

         Score.Cells(z, 3) = AC.Cells(1, 3)

         z = z + 3

     Next AC

End With

End Sub
Anzeige
AW: einzelne Zellen kopieren und in verbundene Zellen einfügen
12.11.2024 12:05:01
Haxeman
Hallo Piet,

vielen lieben Dank für alles.

Habe seit gestern die Makros ausführlich getestet und es funktioniert fast super.
Nur die Daten in Zeile 9 ab Spalte D werden nur die ersten beiden Spalten gelöscht und die restlichen Zellen in Zeile 9 werden nicht mehr gelöscht. Wenn ich die Inhalte händisch lösche und auf ausführen klicke, bekomme ich eine Fehlermeldung.
Und wenn in der Tabelle E2 ein Zahl steht, dieser Zahl wird auch nicht in Score Tabelle übertragen. Alles andere läuft aber einwandfrei.
Hast du bitte für die beiden Probleme auch eine Lösung?

Danke Danke Danke.

Anzeige
AW: einzelne Zellen kopieren und in verbundene Zellen einfügen
12.11.2024 12:45:11
Piet
Hallo

bitte probiere mal ob die Fehler mit dieser Version beseitigt sind. Würde mich freuen.
Warum es beim händischen löschen zur Fehlermeldung kommt ist mir leider unklar??
Ich habe mal eine MsgBox Fehlermeldung eingebaut. Trifft es häufiger auf muss ich noch mal schauen.
In dem Fall VOR On Error ein ' Zeichen setzen, damit der Code in den Fehler läuft!
Die Zeile wird dann gelb markiert. Die sollte ich dann wissen, um den Fehler suchen zu können.
Ein Problem für ClearContents könnten die verbundenen Zellen sein. Habe auf Empty umgestellt!

mfg Piet 

Option Explicit     '9.11.24  Piet  Herber Forum

Dim AC As Range, lz1 As Long

Dim Wert As Variant, z As Long





Sub Score_ausfüllen()

Dim Score As Worksheet, s, LSp

Set Score = Worksheets("Score")

On Error GoTo Fehler

'alte Liste komlett löschen

LSp = Score.Cells(9, Columns.Count).End(xlToLeft).Column

Score.Range("D9").Resize(3, LSp) = Empty

lz1 = Score.Cells(Rows.Count, 1).End(xlUp).Row

Score.Range("A13:C" & lz1) = Empty

s = 4  '1.Spalte für Datum "D"

z = 13 '1.Zeile für Mitarbeiter



With Worksheets("Tabelle 1")

     lz1 = .Cells(Rows.Count, 1).End(xlUp).Row

     Wert = .Range("E2").Value

     If Wert > "" Then Score.Cells(11, s) = Wert

     '1. Schleife für Datum, Tag, Woche Einträge

     For Each AC In .Range("C2:C" & lz1)

         If AC.Offset(0, -2) = 1 And _

            Score.Cells(8, s) > "Start" Then

            Score.Cells(6, s) = "Start"

            Score.Cells(6, s).Font.Bold = True

            MsgBox "Startzelle verschoben!"

         End If

         Score.Cells(9, s) = AC.Value

         Score.Cells(10, s) = AC.Offset(0, -2)

         If Wert > AC.Offset(0, 2) Then

            Wert = AC.Offset(0, 2)

            Score.Cells(11, s) = Wert

         End If

         s = s + 3

     Next AC



     '2. Schleife für Mitarbeiter, P-No, Gruppe Einträge

     lz1 = .Cells(Rows.Count, 9).End(xlUp).Row  'Spa. I

     For Each AC In .Range("I2:I" & lz1)

         Score.Cells(z, 1) = AC.Value

         Score.Cells(z, 2) = AC.Cells(1, 2)

         Score.Cells(z, 3) = AC.Cells(1, 3)

         z = z + 3

     Next AC

End With

Exit Sub

Fehler:  MsgBox "Unerwarteter Fehler"

End Sub
Anzeige
AW: einzelne Zellen kopieren und in verbundene Zellen einfügen
12.11.2024 13:46:12
Haxeman
Danke, Danke, Danke, Danke, Danke!!!!!
jetzt passt es 100 %.
Habe nochmal die Funktionen getestet, händisch gelöscht und es funktioniert 100 %.
Ich danke dir 1000000000000000000000 mal.

Bis denne,
Haxeman

Forumthreads zu verwandten Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
knifflig: in einer Zelle anzeigen, ob Makros aktiv
Tobias

Gibts ne Möglichkeit, in einer Zelle den "makrostatus" abzufragen.
Ohne VBA natürlich :)
So eine WAHR/FALSCH ausgabe wär praktisch,
da ich den Anfängern, die die Mappe öffnen, einen deutlichen Hinweis darauf geben möchte,
das sie Ohne aktiviertem VBA nicht funktioniert...
I...
20.02.2009 16:47:00
Thread-ID: 1052499
6 Beiträge
Hyperlink Ziel Zelle farbig anzeigen!
Wolfgang

Hallo,
benutze Hyperlinks um mich im Dokument zu bewegen.
Frage wenn ich nun zu Blatt 1 nach A32 springe, kann ich dann A32 farbig anzeigen lassen, und geht dann die Farbe wieder weg?
Vielen Recht herzlichen Dank für Eure Mühe.
Wolfgang
26.03.2009 08:30:54
Thread-ID: 1064093
5 Beiträge
Pfadname in Zelle
Steli

Hallo zusammen,
in der Kopf-/Fußzeile kann ich mir z.B. das Datum, den Pfad und den Dateinamen anzeigen lassen.
Geht dies auch direkt im Tabellenblatt?
=Jetzt() klappt ja fürs Datum...
gibt es sowas wie "=Pfad()" ?
Vielen Dank schon mal!!
Gruß
Steli
22.04.2009 10:43:08
Thread-ID: 1070255
6 Beiträge
Anzeige
Internetbild in Zelle anzeigen
stef@n

Hallo zusammen
bin auf der Suche nach einer Möglichkeit, ein Bild aus dem Internet in einer Zelle anzeigen zu lassen.
Ich habe es mit einem Hyperlink probiert z.b.
src="http: //www.google.de/intl/de_de/images/logo.gif" />
(Leerzeichen nach http: damit das Logo hier im Thre...
21.05.2009 15:50:09
Thread-ID: 1076569
9 Beiträge
Anzeige
Tabellenblattname in Zelle A1 anzeigen
Stefanglander

Hallo Forum,
ich habe hie reinen Code-Schnipsel den ich gerne umändern möchte aber mal wieder nicht weiß wie.
Im Moment wird der Tabellenname in der aktiven Zelle beim betätigen der Button angezeigt.
Wie muss ich den Code ändern, dass er in der Zelle B3 angezeigt wird ?
Sub TabN...
14.07.2009 13:33:41
Thread-ID: 1088475
3 Beiträge
Mappe öffnen Pfad in Zellen A1 und B1
lisa

Guten Tag
Ich möchte eine Mappe öffnen und ein spezielles Sheet ansprechen! Der Pfad soll aus den Zellen meiner aktuellen Datei, den Zellen A1 & B1 entnommen werden.
In A1 steht die KW der Mappe, und in B1 (Bsp.: Dienstag) die Sheetbezeichnung.
Dazu folgendes Macro:
ChDir "...
16.07.2009 13:11:51
Thread-ID: 1089033
5 Beiträge
Zeitdifferenz in Zelle einfügen
Alina

Hallo zusammen,
ich habe mir in Excel eine Überstundentabelle gebastelt. Soweit funktioniert auch alles. Ich kann mir auch die Überstunden pro Tag in der Spalte G berechnen lassen. Berechnet wird das durch die Solleinzeit in Spalte F und der tatsächlichen Endzeit in Spalte D.
Nun möcht...
16.08.2009 00:06:36
Thread-ID: 1096190
12 Beiträge
Filterbedingungen in extra Zelle anzeigen
raphael

Dear all,
Ich habe eine Frage!
wie kann ich die Bedingung eines Autofilters in einer Extra Zelle darstellen?
Ich habe in B4:K4 einen Autofilter drin,
und ich möchte in B3:K3 die Bedingungen angezeigt bekommen.
Also ob das eine Custom/Top10/all oder halt einer meiner Auswahl...
18.09.2009 17:54:26
Thread-ID: 1103959
2 Beiträge
Anzeige
Ergebnis in Zelle nur anzeigen wenn in Zelle Wert
Sascha

moin,
hab hier eine ganz einefache Formel:
A B
1 2000 5
2 =A1-B1
3 =A2-B2
Wenn ich nun die Formel in Spalte A weiter fortführe wird immer das letzte Ergebnis angezeigt. Wenn nun aber noch kein Wert in Spalte B eingetragen ist, soll die Formel/Ergebnis auch ni...
27.09.2009 08:47:36
Thread-ID: 1105800
3 Beiträge
Textdatei einlesen und Dateinamen in Zellen
Pascal

Hallo zusammen,
ich hätte mal eine Frage an euch.
Ich bekomme monatlich ca 20 Textfiles zu einem Thema per Mail geschickt und möchte alle in einer Excel Datei zusammenfassen (DIe Inhalte der Textfiles in einem Excelsheet untereinander schreiben lassen)
Allerdings gibt es eine Besond...
08.10.2009 10:04:40
Thread-ID: 1108100
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige