Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon manzur vom 08.09.2021, 20:47 Options
alle werte zum zellbezug in einer spalte mit / wiedergeben
Hallo,
es ist wiedermal soweit. Ich sitze vor einem Problem und komme nicht mehr weiter. Da ist eure Expertentip wiedermal für mich sehr hilfreich.
ich habe eine Ansammlung von Datensätzen, welche folgendermaßen aussehen.
Beispiel:
http://www.fileuploadx.de/961503
Danke im voraus
es ist wiedermal soweit. Ich sitze vor einem Problem und komme nicht mehr weiter. Da ist eure Expertentip wiedermal für mich sehr hilfreich.
ich habe eine Ansammlung von Datensätzen, welche folgendermaßen aussehen.
Beispiel:
http://www.fileuploadx.de/961503
Danke im voraus
Antwort 1 von coros vom 09.09.2021, 05:02 Options
Hallo manzur,
was ist das für ein Link? Der funktioniert nicht und mit den waagen Beschreibungen Deines Problems ist keine Hilfe möglich.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
was ist das für ein Link? Der funktioniert nicht und mit den waagen Beschreibungen Deines Problems ist keine Hilfe möglich.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von manzur vom 13.09.2021, 16:09 Options
Sorry,
ich habe jetzt die Beispieldatei neu hochgeladen.
http://www.file-upload.net/download-1885472/Mappe2.xls.html
gruß
ich habe jetzt die Beispieldatei neu hochgeladen.
http://www.file-upload.net/download-1885472/Mappe2.xls.html
gruß
Antwort 3 von manzur vom 19.09.2021, 13:37 Options
Hallo,
leider weiss ich mir immernoch nicht selbst zu helfen.
Hat vielleicht jemand eine Idee?
Gruß
Manzur
leider weiss ich mir immernoch nicht selbst zu helfen.
Hat vielleicht jemand eine Idee?
Gruß
Manzur
Antwort 4 von coros vom 19.09.2021, 16:34 Options
Hallo Manzur,
sorry, Dein Beitrag ist bei mir total untergegangen.
Nachfolgend nun ein Makro, dass das machen sollte, was Du Dir vorstellst.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
Bei Fragen melde Dich.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
sorry, Dein Beitrag ist bei mir total untergegangen.
Nachfolgend nun ein Makro, dass das machen sollte, was Du Dir vorstellst.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub Test()
Dim lngRow As Long
Dim lngWert As Long
Dim lngRowEnde As Long
Dim lngRowBeginn As Long
Dim lngVerbinden As Long
Dim strKombi As String
Dim lngKomponente As Long
Dim lngFirstRow As Long
lngWert = Sheets("Daten").Cells(2, 1)
lngRowBeginn = 2
For lngRow = 2 To Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row + 1
If Sheets("Daten").Cells(lngRow, 1) <> lngWert Then
lngKomponente = 0
strKombi = ""
lngRowEnde = lngRow - 1
For lngVerbinden = lngRowBeginn To lngRowEnde
If lngKomponente <> Sheets("Daten").Cells(lngVerbinden, 2) Then
strKombi = strKombi & ", " & Sheets("Daten").Cells(lngVerbinden, 2)
End If
lngKomponente = Sheets("Daten").Cells(lngVerbinden, 2)
Next
lngRowBeginn = lngRow
With Sheets("Übersicht")
lngFirstRow = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
.Cells(lngFirstRow, 1) = Sheets("Daten").Cells(lngRowEnde, 1)
.Cells(lngFirstRow, 2) = Mid(strKombi, 3, Len(strKombi))
End With
End If
lngWert = Sheets("Daten").Cells(lngRow, 1)
Next
End Sub
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
Bei Fragen melde Dich.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 5 von coros vom 19.09.2021, 16:36 Options
Hallo,
ich nochmal. Ich hatte vergessen zu erwähnen, dass in dem Blatt "Daten" die Daten erst nach Spalte A und dann nach Spalte B sortiert sein müssen. Wenn Du möchtest, kann man das auch noch automatisieren.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
ich nochmal. Ich hatte vergessen zu erwähnen, dass in dem Blatt "Daten" die Daten erst nach Spalte A und dann nach Spalte B sortiert sein müssen. Wenn Du möchtest, kann man das auch noch automatisieren.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 6 von coros vom 19.09.2021, 16:50 Options
Hallo Manzur,
nachfolgend nun nochmal das Makro mit der Sortierung im Blatt Daten.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
nachfolgend nun nochmal das Makro mit der Sortierung im Blatt Daten.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub Test()
Dim lngRow As Long
Dim lngWert As Long
Dim lngRowEnde As Long
Dim lngRowBeginn As Long
Dim lngVerbinden As Long
Dim strKombi As String
Dim lngKomponente As Long
Dim lngFirstRow As Long
Sheets("Daten").Range("A1:B" & Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row).Sort _
Key1:=Sheets("Daten").Range("A2"), Order1:=xlAscending, _
Key2:=Sheets("Daten").Range("B2"), Order2:=xlAscending, Header:=xlGuess
lngWert = Sheets("Daten").Cells(2, 1)
lngRowBeginn = 2
For lngRow = 2 To Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row + 1
If Sheets("Daten").Cells(lngRow, 1) <> lngWert Then
lngKomponente = 0
strKombi = ""
lngRowEnde = lngRow - 1
For lngVerbinden = lngRowBeginn To lngRowEnde
If lngKomponente <> Sheets("Daten").Cells(lngVerbinden, 2) Then
strKombi = strKombi & ", " & Sheets("Daten").Cells(lngVerbinden, 2)
End If
lngKomponente = Sheets("Daten").Cells(lngVerbinden, 2)
Next
lngRowBeginn = lngRow
With Sheets("Übersicht")
lngFirstRow = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
.Cells(lngFirstRow, 1) = Sheets("Daten").Cells(lngRowEnde, 1)
.Cells(lngFirstRow, 2) = Mid(strKombi, 3, Len(strKombi))
End With
End If
lngWert = Sheets("Daten").Cells(lngRow, 1)
Next
End Sub
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 7 von manzur vom 11.10.2021, 22:27 Options
Hallo Leute,
habe leider immernoch das Problem. Neue Datei Upload...Altes Problem!!
http://rapidshare.de/files/48505389/Mappe1.xlsx.html
Hoffe, daß ihr mir mit einer Formel helfen könnt.
Gruß und Danke
habe leider immernoch das Problem. Neue Datei Upload...Altes Problem!!
http://rapidshare.de/files/48505389/Mappe1.xlsx.html
Hoffe, daß ihr mir mit einer Formel helfen könnt.
Gruß und Danke
Antwort 8 von coros vom 12.10.2021, 04:41 Options
Moin,
was funktioniert, bzw. was gefällt Dir denn an dem was ich Dir hier vorgeschlagen habe nicht?
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
was funktioniert, bzw. was gefällt Dir denn an dem was ich Dir hier vorgeschlagen habe nicht?
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Ähnliche Themen
Werte einer Spalte vergleichen
jennit 03.04.2008 - 70 Hits - 1 Antwort
Zellen in eine Spalte vergleichen, und bei gleiche Werte die Zeilen der dazugehörige spalte zusammentun
Mnogokuh 11.04.2008 - 66 Hits - 6 Antworten
letzten wert einer spalte wiedergeben
normole 17.06.2008 - 87 Hits - 2 Antworten
Werte einer spalte per VBA addieren
nok106 27.08.2008 - 20 Hits - 4 Antworten
Anzahl bestimmter Werte in einer Spalte zählen
zessich 02.10.2008 - 51 Hits - 8 Antworten
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..
Neue Einträge
