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

Übertrag von Zellinhalten in Tabelle 2

Forumthread: Übertrag von Zellinhalten in Tabelle 2

Übertrag von Zellinhalten in Tabelle 2
17.02.2009 22:06:00
Zellinhalten
Hallo zusammen!
Ich möchte von Tabelle 1 aus der Spalte ab E6- E105 und F6- F105 Zellen- Inhalte auslesen und diese in Tabelle 2 übertragen!
Es soll geprüft werden ob beide Spalten in der selben Zeile einen Inhalt haben, ist dies der Fall so soll ein Übertrag stattfinden!
Beispieltabelle habe ich mal dazu angefertigt!
https://www.herber.de/bbs/user/59554.xls
Gruß
Lemmi
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Übertrag von Zellinhalten in Tabelle 2
17.02.2009 22:42:00
Zellinhalten
Guten Abend Lemmi!

Sub t()
Dim zähler As Byte, zeile As Long
For zeile = 5 To 105
If zähler = 20 Then Exit For
If Len(Worksheets("tabelle1").Cells(zeile, "E")) * _
Len(Worksheets("tabelle1").Cells(zeile, "F")) > 0 Then
zähler = zähler + 1
Worksheets("Tabelle2").Cells(5, 33 + zähler) = _
Worksheets("tabelle1").Cells(zeile, "E").Text & " " _
& Worksheets("tabelle1").Cells(zeile, "F").Text
End If
Next
End Sub


Gruß Gerd

Anzeige
AW: Übertrag von Zellinhalten in Tabelle 2
18.02.2009 22:03:00
Zellinhalten
Hallo Gerd,
vielen Dank für Deine Hilfe das Marko funktioniert prima!
...ich habe aber beim Implementieren in die richtige Datei, feststellen müssen, dass ich noch zwei Spalten und zwei Zellen auslesen möchte!
Könntest Du Dir die Datei noch einmal ansehen?
Wäre es auch möglich wenn man das Makro startet die vorherigen Einträge zu löschen?
https://www.herber.de/bbs/user/59583.xls
Gruß
Lemmi
Anzeige
AW: Übertrag von Zellinhalten in Tabelle 2
19.02.2009 07:41:00
Zellinhalten
Hi Lemmi,
ungetestet. Es kann sein, dass noch etwas angepasst werden muss. Deine Beschreibung passte
mir jetzt nicht ganz zu deinem Muster.

Sub t2()
Dim zähler As Byte, zeile As Long
Worksheets("tabelle2").Range("AB4:AV5").ClearContents
For zeile = 5 To 105
If zähler = 21 Then Exit For
If Len(Worksheets("tabelle1").Cells(zeile, "E")) * _
Len(Worksheets("tabelle1").Cells(zeile, "F")) > 0 Then
zähler = zähler + 1
Worksheets("Tabelle2").Cells(4, 33 + zähler) = _
Worksheets("tabelle1").Cells(zeile, "E").Text & " " _
& Worksheets("tabelle1").Cells(zeile, "F").Text
End If
Next
For zeile = 5 To 105
If zähler = 21 Then Exit For
If Len(Worksheets("tabelle1").Cells(zeile, "H")) * _
Len(Worksheets("tabelle1").Cells(zeile, "I")) > 0 Then
zähler = zähler + 1
Worksheets("Tabelle2").Cells(5, 33 + zähler) = _
Worksheets("tabelle1").Cells(zeile, "H").Text & " " _
& Worksheets("tabelle1").Cells(zeile, "I").Text
End If
Next
End Sub


Gruß Gerd

Anzeige
AW: Übertrag von Zellinhalten in Tabelle 2
19.02.2009 20:33:00
Zellinhalten
Hallo Gerd,
bei mir ist noch nicht alles funktionstüchtig!
Irgendwie beginnen die Einträge nicht in Tabelle 2 Zeile 4 (Spalte AB) !!!! Warum ist mir nicht plausibel!
Leider kann ich auch den Code nicht so anpassen das mir die noch fehlenden Zelle- Einträge Gruppe 1 und 2 mit einbinden kann!
Könntest Du noch mal schauen!
https://www.herber.de/bbs/user/59608.xls
Gruß
Lemmi
Anzeige
AW: Übertrag von Zellinhalten in Tabelle 2
21.02.2009 10:12:42
Zellinhalten
Hallo Lemmi,
weil ich den Zähler "zähler" vor der zweiten Schleife nicht zurückgestellt hatte.
Gruppennamen, i.O. Bei den Zusätzen hierzu war ich mir nicht ganz schlüssig wie
Du es haben möchtest.

Sub Übertrag2()
Dim zähler As Byte, zeile As Long
Worksheets("tabelle2").Range("S4:S5,AB4:AU5").ClearContents
Worksheets("tabelle2").Cells(5, "S") = _
Worksheets("tabelle1").Cells(2, "B") & "; " & _
Worksheets("tabelle1").Cells(5, "H") & " " & Worksheets("tabelle1").Cells(5, "I")
For zeile = 5 To 105
If zähler = 21 Then Exit For
If Len(Worksheets("tabelle1").Cells(zeile, "E")) * _
Len(Worksheets("tabelle1").Cells(zeile, "F")) > 0 Then
zähler = zähler + 1
Worksheets("Tabelle2").Cells(5, 27 + zähler) = _
Worksheets("tabelle1").Cells(zeile, "E").Text & " " _
& Worksheets("tabelle1").Cells(zeile, "F").Text
End If
Next
zähler = 0
Worksheets("tabelle2").Cells(4, "S") = _
Worksheets("tabelle1").Cells(3, "C") & "; " & _
Worksheets("tabelle1").Cells(5, "H") & " " & Worksheets("tabelle1").Cells(5, "I")
For zeile = 5 To 105
If zähler = 21 Then Exit For
If Len(Worksheets("tabelle1").Cells(zeile, "H")) * _
Len(Worksheets("tabelle1").Cells(zeile, "I")) > 0 Then
zähler = zähler + 1
Worksheets("Tabelle2").Cells(4, 27 + zähler) = _
Worksheets("tabelle1").Cells(zeile, "H").Text & " " _
& Worksheets("tabelle1").Cells(zeile, "I").Text
End If
Next
End Sub


Gruß Gerd

Anzeige
AW: Übertrag von Zellinhalten in Tabelle 2
21.02.2009 21:20:41
Zellinhalten
Hallo Gerd,
..der Übertrag ist soweit gut passt alles! Vielen Dank!
Könntest Du noch den Text/ Zahleneintrag
Gruppe 1;
Gruppe 2;
in Tabelle 2 als feste Größe immer voranstellen?
Damit wird z. B. Zeileninhalt AB4 nicht nur 10 01 sondern Gruppe 2; 10 01 und
aus Zeileninhalt AB5 nicht nur A01 sondern Gruppe 1; A01
Die Zeileninhalte aus Tabelle B2 und C3 sollen damit eingebunden werden!
Gruß
Lemmi
Anzeige
AW: Übertrag von Zellinhalten in Tabelle 2
21.02.2009 21:43:05
Zellinhalten
Hallo Lemmi,
meinst Du so? (für die erste Schleife dann analog)
For zeile = 5 To 105
If zähler = 21 Then Exit For
If Len(Worksheets("tabelle1").Cells(zeile, "H")) * _
Len(Worksheets("tabelle1").Cells(zeile, "I")) = > 0 Then
zähler = zähler + 1
Worksheets("Tabelle2").Cells(4, 27 + zähler) =Worksheets("tabelle1").Cells(3, "C") & "; " & _
Worksheets("tabelle1").Cells(zeile, "H").Text & " " _
& Worksheets("tabelle1").Cells(zeile, "I").Text
End If
Next
Gruß Gerd
Anzeige
AW: Übertrag von Zellinhalten in Tabelle 2
22.02.2009 22:57:22
Zellinhalten
Hallo Gerd,
passt leider nicht ganz !
Sie noch einmal die Datei an! (Vermerk "Wunschausgabe!")
https://www.herber.de/bbs/user/59674.xls
Nur wenn Zellen in Tabelle 2 mit dem Marko gefüllt werden soll der Inhalt mit dem Zelleninhalt "Guppe... " ergänzt werden!
Zur Zeit ist die Bezeichnung Gruppe immer in der Zelle eingetragen!
Gruß
Lemmi
Anzeige

Forumthreads zu verwandten Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
Bezug auf Blatt abhängig von Zellinhalt
Zellinhalt

Hallo!
Meine Arbeitsmappe hat vier Blätter, diese heißen: "Übersicht" "Hans", "Klaus" und "Karl".
In Zelle A1 von "Übersicht" steht entweder "Hans", "Klaus" oder "Karl".
In Zelle A2 soll das stehen, was in Zelle B16 des Blattes steht, das in Zelle A1 von "Übersicht" genannt ist.
...
11.08.2008 16:55:00
Thread-ID: 1000917
3 Beiträge
Ausgabe von Teilen des Zellinhaltes
Teilen

Hallo
Ich habe über SVERWEIS mir Zellinhalte aus einer großen Tabelle ausgeben lassen.
Nun möchte ich aber bei der Ausgabe nicht den gesamten Zellinhalt mir anzeigen lassen, sondern nur die ersten 4 Ziffern.
Ist das möglich?
Vielen Dank für die Hilfe
MfG
Andreas
...
14.08.2008 08:45:54
Thread-ID: 1001719
4 Beiträge
Doppelte Inhalte löschen
Oliver

Hallo
in einer Liste von Buchungen befinden sich für einzelne Kostenstellen mehrere Buchungen.
Ich möchte nun aus dieser Liste eine Liste erstellen, in welcher alle Kostenstellen nur einmal vorkommen (also die doppelten Einträge löschen).
Mit dieser Liste will ich später dann die Su...
15.08.2008 09:56:06
Thread-ID: 1002057
4 Beiträge
Anzeige
Ordnerinhalt in Tabelle schreiben
Johann

Hallo Excel-Profis!
Ich brauch wieder einmal eure Hilfe.
Im Archiv habe ich mir den nachfolgenden Code besorgt und ein wenig verändert.
Der Code schreibt den Inhalt des aktuellen Ordners und der Unterordner in die Spalte B einer Tabelle und verlinkt noch dazu die einzelnen Einträge...
15.08.2008 17:19:52
Thread-ID: 1002256
8 Beiträge
Autokorrektur abschalten
Pia

Guten Abend zusammen,
wie kann man eine Autokorrektur in Excel abschalten? Ich muss WEI eintippen aber jedesmal wenn ich mit Enter bestätigen, es wechselt automatisch zu WIE.
Vielen Dank
20.08.2008 21:03:44
Thread-ID: 1003317
7 Beiträge
Belegung Schaltfläche msgbox
Lars

Hallo,
kann ich bei einer msgbox die Schaltflächen auch selber benennen?
Ich würde gerne wissen, ob ein Wert ober- oder unterhalb eines Grenzwertes liegt und somit die Tasten "oberhalb" und "unterhalb" in der msgbox haben.
Lars
21.08.2008 14:10:31
Thread-ID: 1003485
4 Beiträge
Pro Passwort eine Zeile freischalten...
amina

Hallo alle zusammen,
gibt es eine Möglichkeit in Excel pro Passwort eine Zeile freizuschalten.
Also z.b hab ich 20 Leute
1. Person = Zeile 1
2. Person = Zeile 2
usw.
und jede Person darf nur jeweils seine Zeile bearbeiten und die anderen bleiben gesperrt also so ähnlich...
21.08.2008 15:04:36
Thread-ID: 1003520
7 Beiträge
MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Anzeige
Formatierung Inhalt Kombinationsfeld
Matthias

Guten Morgen Excel-Welt,
mein hoffentlich kleines Problem:
Über die Symbolleiste Formular füge ich ein Kombinationfeld ein.
Der im Listenbereich def. Text (2 Wörter) erscheint bei Auswahl über das Kombinationsfeld sehr klein und fast nicht lesbar. Wie komme ich an die Formatierung d...
27.08.2008 07:34:00
Thread-ID: 1004953
4 Beiträge
Anzeige
Makro, das die Spaltenreihenfolge umdreht
Maxine

Hallo zusammen,
ich benötige ein Makro, dass mir in einem Sheet die Spalten in umgekehrter Reihenfolge ordnet. Also statt A B C D, sollen die Spalten in D C B A geordnet werden.
Der Inhalt und die Reihenfolge der Zeilen soll je Spalte erhalten bleiben.
Könnt ihr mir helfen?
V...
27.08.2008 09:47:23
Thread-ID: 1004990
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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