Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1048to1052
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ü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

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

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
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
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

299 Forumthreads zu ähnlichen 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
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
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
Schriftgröße Zelle automatisch an Inhalt anpassen
Peter

Hallo Leute!
Folgende Situation: ich habe in einer Arbeitsmappe auf mehreren Tabellenblättern zu oberst das gleiche Design. Unter anderem steht auf jedem Blatt oben in einer Zelle die gleiche Information. Aus Gründen der Einfachheit muss man diese Information nur einmal auf dem ersten Tabel...
21.08.2008 15:04:06
Thread-ID: 1003519
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
2
3
3
7
6
3
3
6
5
3
2
1
2
6
7
4
2
1
7
4
8
5
3