Thema Datum  Von Nutzer Rating
Antwort
Rot Zusammenführen mehrer Spalten
 29.01.2018 16:52:51 Johannes
**
NotSolved
29.01.2018 18:29:24 Werner
Solved

Ansicht des Beitrags:
Von:
Johannes		 Datum:
29.01.2018 16:52:51		 Views:
1291		 Rating:
     
Antwort:
  Ja
Thema:
Zusammenführen mehrer Spalten

Hallo zusammen,

ich habe bisher recht wenig mit VBA zu tun gehabt und bin ein bisschen am rumprobiern.

Ich habe Daten in den Spalten B bis D vorliegen. (Tabellenblatt 2)

Die Daten werden durch Formeln erzeugt:

B.       C

a0       b0

a1       b1

a2       !

!          !

!          !

Wenn die hinterlegten Formeln kein Ergebnis liefern wird ein ! ausgegeben.

Ich habe mich daran versucht einen VBA Code zu schreiben, der alle Spalten in einer Spalte auf einem neune Tabellenblatt zusammenfasst. Der Code ist auch in der Lage diese Aufgabe zu erledigen. Allerdings werden die Ausrufezeichen immer mitkopiert. Das ist unerwünscht.

Das Ziel ist es eine Zielspalte mit den Werten:

a0

a1

a2

b0

b1

zu erhalten.

Dies habe ich versucht über ein if statement in Spalte B zu lösen:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub test()
Dim nZeile As Integer
Dim vSpalte As Integer
Dim vZeile As Integer
Dim nSpalte As Integer
Dim vSheet As String
Dim nSheet As String
 
vSheet = "Tabelle2" ' quellTabellenBlatt
nSheet = "Tabelle4" 'ZielTabellenBlatt
nZeile = 2 'nach Zeile
nSpalte = 2 'nach Spalte
 
'Spalte B
vSpalte = 2
For vZeile = 3 To Sheets(vSheet).Cells(65536, vSpalte).End(xlUp).Row
    <strong>If Worksheets("Tabelle1").Cells(vZeile, 2).Value = "!" Then vZeile = vZeile + 1 Else: vSheets(nSheet).Cells(nZeile, nSpalte) = Sheets(vSheet).Cells(vZeile, vSpalte)
    nZeile = nZeile + 1
    End If</strong>
Next
 
'Spalte C
vSpalte = 3
For vZeile = 3 To Sheets(vSheet).Cells(65536, vSpalte).End(xlUp).Row
    Sheets(nSheet).Cells(nZeile, nSpalte) = Sheets(vSheet).Cells(vZeile, vSpalte)
    nZeile = nZeile + 1
Next
 
'Spalte D
vSpalte = 4
For vZeile = 3 To Sheets(vSheet).Cells(65536, vSpalte).End(xlUp).Row
    Sheets(nSheet).Cells(nZeile, nSpalte) = Sheets(vSheet).Cells(vZeile, vSpalte)
    nZeile = nZeile + 1
Next
End Sub

Dieser VBA Code erzeugt bei mir die Fehlermeldung Sub oder function nicht definiert.

Könnt ihr mir weiterhelfen?

Johannes

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zusammenführen mehrer Spalten
 29.01.2018 16:52:51 Johannes
**
NotSolved
29.01.2018 18:29:24 Werner
Solved