Übertrag die Zweite

Forumthread: Ü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

AW: Übertrag die Zweite

24.02.2009 22:18:46

Gerd
AW: Übertrag die Zweite

26.02.2009 22:15:41

Lemmi

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

AW: Übertrag die Zweite

26.02.2009 22:15:41

Lemmi

Hallo Gerd!
vielen vielen Dank ! alles bestens!
Gruß
Lemmi

Beliebteste Forumthreads (12 Monate)

Forumthread: Übertrag die Zweite

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread