Microsoft Excel

Herbers Excel/VBA-Archiv

Tabelle auswertung


Betrifft: Tabelle auswertung von: Achim Krebs
Geschrieben am: 20.11.2017 16:05:33

Hallo..

icj benötige eine VBA Routine um Felder in Abhängigkeit ob diese leer sind oder nicht zusammen zu fassen.
Ich möchte gerne in celle 5 alle werte aus den Zellen 1, 3, 4, 5 und 2 mit einem Sonderzeichen (z.B. #1 Zellenwert aus zelle1, #2 Zahlenwert aus zelle 3 usw.) jedoch nur wenn in den Zellen auch ein Inhalt ist, ansonsten nur #1 und Zellenwert und vieleicht #3 und Zellenwert.
Ich habe mir schon aus dem Internet eine Formel zusammengebaut welche auch schon teilweise funktiniert.

Sub a()
Dim i As Long
i = 1
Do Until Cells(i, 1).Value = ""
  Cells(i, 5) = Cells(i, 1).Value & "#1" & Cells(i, 3).Value & "#2" & Cells(i, 4).Value & "#3" & _
 _
 Cells(i, 2).Value
  i = i + 1
Loop

End Sub

Ich lege mal die Tabelle mit dem Code bei.
Ich hoffe einer hat eine Idee.

gruß Achim

  

Betrifft: keine Tabelle dabei von: Werner
Geschrieben am: 20.11.2017 16:08:26

Hallo Achim,

eine Tabelle/Datei ist da keine dabei. Und was du genau willst habe ich ehrlich gesagt auch noch nicht verstanden.

Gruß Werner


  

Betrifft: AW: keine Tabelle dabei von: Achim Krebs
Geschrieben am: 20.11.2017 17:41:59

Hi..

hier nochmal der Tabellenlink " https://www.herber.de/bbs/user/117797.xlsm"

gruß achim


  

Betrifft: AW: vlt. so von: hary
Geschrieben am: 21.11.2017 09:09:01

Moin
Teste mal so.

Sub Test()
Dim i As Long
With Worksheets("Tabelle1") '--ggf. Blattname anpassen
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
  If Application.CountA(.Cells(i, 1).Resize(1, 7)) > 1 Then
    .Cells(i, 5) = "#1" & .Cells(i, 1).Value & IIf(.Cells(i, 3) <> "", " #2 " & .Cells(i, 3), "" _
) & IIf(.Cells(i, 4) <> "", " #3 " & .Cells(i, 4), "") & IIf(.Cells(i, 2) <> "", " " & .Cells(i, 2), "")
  End If
Next
End With
End Sub

gruss hary


Beiträge aus den Excel-Beispielen zum Thema "Tabelle auswertung"