Supportnet Computer Supportnet Games Supportnet Kochen Explipedia
Login: guestBesucher online: 392
Supportnet Computerforum
SUPPORT
Home
Forum
Tipps & Infos
Blitz Angebote
Members
Hilfe
Video

TOP THEMEN
SSD Test
Alles über SSDs

Android Tipps
iPad Tipps
Google Tipps
Windows 8 FAQ
Windows 7 FAQ
E-Mail FAQ
Netzwerk FAQ
Festplatten FAQ
Datenrettung FAQ
Bildbearbeitung FAQ

Top iPhone Apps
Computer Einsteiger
Die 5 besten...
Explipedia
Themen
Direktlinks

Neue Einträge
News einsenden News einschicken
Tipps einsenden Tipp einschicken

SN-LINKS

Suche
Befreundete Seiten
Top Seiten

Supportnet/Forum/Tabellenkalkulation



Supportnet/Forum/Tabellenkalkulation
von BertiBohne vom 10.01.2017, 10:07 Diese Seite den Supportnet Favoriten hinzufügen  Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden


Verketten nach kriterium mit VBA

 (198 Hits)

Hallo zusammen,

ich habe ein Problem. da ich absoluter Anfänger im Bereich VBA bin,
brauche ich ein wenig Hilfe. Es sind knapp 2000 Zeilen und das ist
von Hand ein wenig viel....
In meiner Tabelle habe ich folgenden Aufbau

Spalte 1 Spalte 2
A X
Y
Z
B W
D
K

und so soll es hinterher aussehen:

Spalte 1 Spalte 2
A XYZ
B WDK


ich hoffe ich habe es anschaulich genug dargstellt. Ich hoffe ihr könnt
mir helfen.

Gruß Berti


Antwort schreiben 50 Bonuspunkte

Antworten...
Antwort 1 von BertiBohne vom 10.01.2017, 10:13 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

ok die Formatierung hat es ein wenig zerlegt.....


Spalte 1 Spalte 2
A________X
_________Y
_________Z
B________W
_________K
_________D

so soll es aussehen...

Spalte 1 Spalte 2
A________XYZ
B________WKD


Antwort noch nicht bewertet
Antwort 2 von M.O. vom 10.01.2017, 14:11 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo,

ich gehe mal davon aus, dass A und B etc in der Spalte A stehen und die anderen Buchstaben in Spalte B. Außerdem stehen diese immer in eigenen Zeilen und es gibt keine Überschriften (falls doch, ist das folgende Makro entsprechend anzupassen).
Die zusammengefassten Daten werden unter der bestehenden Tabelle ausgegeben. Das folgende Makro gehört in ein Standard-Modul der entsprechenden Arbeitsmappe:

Sub zusammenfassen()

Dim lngLetzte As Long
Dim varSuch As Variant
Dim arrErgebnis As Variant
Dim lngAnzahl As Long
Dim lngZeile As Long
Dim strZusammen As String
Dim lngZaehler As Long

With ActiveSheet
 'letzte Zeile in Spalte B ermitteln
 lngLetzte = .Cells(Rows.Count, 2).End(xlUp).Row

'Anzahl der nicht leeren Zellen in Spalte A ermitteln
 lngAnzahl = Application.WorksheetFunction.CountA(.Range(.Cells(1, 1), .Cells(lngLetzte, 1)))

'Feld für Zusammenfassung Re-Dimensionieren
ReDim arrErgebnis(lngAnzahl, 1)

'Daten für 1. Zeile einlesen
varSuch = .Cells(1, 1).Value
strZusammen = .Cells(1, 2).Value

'Schleife für das Zusammenfassen
 For lngZeile = 2 To lngLetzte
  'Prüfen, ob Spalte A leer ist
  If IsEmpty(.Cells(lngZeile, 1)) = True Then
   'falls ja, dann Inhalt von Spalte B an String hängen
   strZusammen = strZusammen & .Cells(lngZeile, 2).Value
  Else
   'falls nein, dann gesammelte Daten in Array schreiben
   arrErgebnis(lngZaehler, 0) = varSuch
   arrErgebnis(lngZaehler, 1) = strZusammen
   lngZaehler = lngZaehler + 1
   'und neue Zusammenfassung beginnen
   varSuch = .Cells(lngZeile, 1).Value
   strZusammen = .Cells(lngZeile, 2).Value
  End If
 Next lngZeile

'nach Durchlauf der Schleife, letzte Daten in Array schreiben
 arrErgebnis(lngZaehler, 0) = varSuch
 arrErgebnis(lngZaehler, 1) = strZusammen

'Zusammengefasste Daten unterhalb der bestehenden Daten ausgeben
.Range(.Cells(lngLetzte + 2, 1), .Cells(lngLetzte + 2 + UBound(arrErgebnis) - 1, 2)) = arrErgebnis

End With

End Sub


Gruß

M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten
Diese Antwort hat mein Problem gelöst




Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum.

MACHEN SIE IHRE WEBSITE ATTRAKTIVER
Sie haben eine eigene Website und wollen Ihre Besucher auf den Supportnet-Service aufmerksam machen? Kopieren Sie einfach den Quellcode in Ihre Seite und jeder Besucher Ihrer Seite kann direkt auf die Supportnet-Datenbank zugreifen.

My Supportnet


SUCHE

Gruppen im Forum
Betriebsysteme
Software
Hardware
Netzwerk
Programmierung
Sonstiges

Impressum © 1997-2015 SupportNet
Version: supportware 1.8.230E / 18.10.2010, Startzeit:Thu Aug 17 11:14:39 2017