Formate übertragen

Hallo zusammen,
anbei die Datei: https://www.herber.de/bbs/user/50227.xls
In den Zellen D3:G65 werden Kundennamen eingetragen (Mitarbeiter 1,2,3, usw sind die jeweiligen Außendienstler).
Sobald ein Name eines Kunden eingetragen wird erscheint in den Zellen D3:E57 hinter dem Namen (A) und in den Zellen F3:G57 hinter dem Namen (B). Soweit so gut.
Wenn ich nun auf Übersicht erstellen klicke, werden die Daten auf das 2.Blatt (Übersicht) übertragen. Nur leider werden die Klammern (A) bzw (B) nicht mit übertragen.
Wenn ich die (A) und (B) manuell setze ; siehe Zelle (D59:G65), funktioniert es und die Summe (ab Zeile 10) auf der Übersicht stimmt auch.
Doch es muss doch möglich sein, diese manuelle Variante zu umgehen, oder? Wer kann mir hier helfen. Da ich den Code leider nicht selbst geschrieben habe, und ich in VBA wenig fit bin, weiß ich auch nicht wo ich hingreifen soll....
Schön wäre auch, wenn die Zusatzzeichen (bei Leerzellen) weg wären ...
Danke vorab.
Gruß
TOM

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo TOM,


Sub Transferieren_2()
Sheets("Übersicht").Select
Range("c3:i9").Select
Selection.ClearContents
Dim wksSource As Worksheet, wksTarget As Worksheet
Dim varRow As Variant, varCol As Variant
Set wksSource = Worksheets("Einzelaufstellung")
Set wksTarget = Worksheets("Übersicht")
Dim intRow As Integer
intRow = 3
Do Until IsEmpty(wksSource.Cells(intRow, 3))
varRow = Application.Match(wksSource.Cells(intRow, 2), wksTarget.Columns(2), 0)
If Not IsError(varRow) Then
varCol = Application.Match(wksSource.Cells(intRow, 3), wksTarget.Rows(2), 0)  ' _
wksTarget.Rows(2)=Zeile 2, Tabelle2
If Not IsError(varCol) Then
If Not (wksSource.Cells(intRow, 4) & " " & vbLf & _
wksSource.Cells(intRow, 5) & " " & vbLf & wksSource.Cells(intRow, 6) & " " & vbLf & _
wksSource.Cells(intRow, 7)) = " " & vbLf & " " & vbLf & " " & vbLf Then
wksTarget.Cells(varRow, varCol) = wksSource.Cells(intRow, 4).Text & " " & _
vbLf & _
wksSource.Cells(intRow, 5).Text & " " & vbLf & wksSource.Cells(intRow, 6) _
.Text & " " & vbLf & wksSource.Cells(intRow, 7).Text
wksTarget.Cells(varRow, varCol).NumberFormat = ""
End If
End If
End If
intRow = intRow + 1
Loop
Range("c2").Select
End Sub

Wenn man die Eigenschaft '.Text' verwendet, trägt man die Zell-Anzeige ein, statt dem Zell-Wert.
Damit in den ansonsten leeren Zellen nicht das Format - also (A) oder (B) - erscheint, ist der zusätzliche If-Block eingefügt.
Hoffe das hilft ...
Gruss
Adi

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread