Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1052to1056
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
1052to1056
1052to1056
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Übertrag die Zweite

Übertrag die Zweite
24.02.2009 21:56:28
Lemmi
Hallo zusammen,
ich habe bei meiner letzten Frage von Euch, genauer gesagt von Gerd ein kleines Marko geschrieben bekommen!
Vielen Dank noch mal!
Ich benötigen hier abschließend noch eine Ergänzung der Zelleninhalte.
Das Marko überträgt von Tabelle 1 auf die Tabelle 2 einige Inhalte nun fehlt aber noch der Text aus Tabelle 1 von Zelle B2 und B3:
Gruppe 1; und Gruppe 2;
Dieser Zelleninhalt soll nur dann übertragen werden wenn die Inhalte in Tabelle 1 Spalte E_F und H_I in Tabelle 2 übertragen worden sind!
https://www.herber.de/bbs/user/59746.xls
Gruß
Lemmi

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Übertrag die Zweite
24.02.2009 22:18:46
Gerd
Hallo Lemmi.
nach Spalte S soll wohl nichts mehr. Die Codezeilen hierzu habe ich auskommentiert.

Sub Übertrag3()
Dim zähler As Byte, zeile As Long, strPräfix As String
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")
strPräfix = Worksheets("tabelle1").Cells(2, "B") & "; "
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) = strPräfix _
& 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")
strPräfix = Worksheets("tabelle1").Cells(3, "C") & "; "
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) = strPräfix _
& Worksheets("tabelle1").Cells(zeile, "H").Text & " " _
& Worksheets("tabelle1").Cells(zeile, "I").Text
End If
Next
End Sub


Gruß Gerd

Anzeige
AW: Übertrag die Zweite
26.02.2009 22:15:41
Lemmi
Hallo Gerd!
vielen vielen Dank ! alles bestens!
Gruß
Lemmi

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige