Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehre Zahlen in eine Zelle schreiben

Mehre Zahlen in eine Zelle schreiben
Matthias
Hallo Experten
ich versuche folgendes Problem zu lösen. Ich habe eine große Tabelle wo in einer Spalte verschiedene ID´s stehen. Jetzt möchte ich ein ID suchen und mehrere Werte in der Zeile in eine neue Zelle schreiben.
Zum Beispiel in der Spalte A stehen meine ID´s 1-5. Nun will ich nach ID 5 suchen und die befindet sich in A5, dann sollen die Werte die in der gleichen Zeile stehen, hier wären es C5,D5 und E5, in eine andere Zelle schreiben. In der Zelle C5 steht 1, in Zelle D5 steht 2 und in Zelle E5 steht 5. Also würde in der neue Zelle 1,2,3 stehen. Die suche nach der ID schaffe ich noch, aber dann hört es bei mir leider auf.
Vielen Dank
Matze
AW: Mehre Zahlen in eine Zelle schreiben
11.07.2012 08:39:35
Hajo_Zi
Hallo Matze,
nur wenioge sehen Deine erfolgreiche suche und können darauf aufbauben.
Man könnte vermuten Du suchst nur einen Teil der ID Spalte? Was passiert, wenn es mehrmals vorkommt?

AW: Mehre Zahlen in eine Zelle schreiben
11.07.2012 08:39:51
Hajo_Zi
Hallo Matze,
nur wenioge sehen Deine erfolgreiche suche und können darauf aufbauben.
Man könnte vermuten Du suchst nur einen Teil der ID Spalte? Was passiert, wenn es mehrmals vorkommt?

AW: Mehre Zahlen in eine Zelle schreiben
11.07.2012 11:12:56
Matthias
Halla Hajo
ich würde ein Suchbutton in einem Arbeitsblatt erstellen und dort nach einer ID suchen. Dann Wechsel ich das Arbeitsblatt und suche im Datenblatt.
hier mein Formel zur Suche, was ich denke.
Sub ID suchen ()
Dim brickid
brickid = Range("B1").Value
'suche in db nach zeile mit brickid
Worksheets("DB_TS").Activate
For zeile_db = 1 To 1000
If Cells(zeile_db, 1).Value = brickid Then Exit For
Next zeile_db
jetzt hätte ich die Zeile aus meinen Datenblatt, aber soll ab Spalte C die Zahlen auslesen und dann in das Arbeitsblatt wechseln, wo der Suchbutton ist und die ausgelesenden Werte sollen in eine Zelle geschrieben werden, wie bei dem Beispiel von Bibo.
Danke
Matze
Anzeige
AW: Mehre Zahlen in eine Zelle schreiben
11.07.2012 08:40:02
Hajo_Zi
Hallo Matze,
nur wenioge sehen Deine erfolgreiche suche und können darauf aufbauben.
Man könnte vermuten Du suchst nur einen Teil der ID Spalte? Was passiert, wenn es mehrmals vorkommt?

AW: Mehre Zahlen in eine Zelle schreiben
11.07.2012 11:18:20
Matthias
Hallo Bibo
das Beispiel isk korrekt, aber ich hätte gern ein VBA Macro, wie zu Hajo geschriebe habe.
Danke
Matthias
Anzeige
AW: Mehre Zahlen in eine Zelle schreiben
11.07.2012 13:19:18
{Boris}
Hi Matze,
keine Schleife verwenden - dafür gibt`s die Find-Methode:
Option Explicit
Public Sub Search_ID()
Dim vntID   As Variant
Dim C       As Range
Dim strTemp As String
vntID = InputBox("Welche ID soll gesucht werden?", "Suchwert")
If vntID = "" Then Exit Sub
Set C = Range("A:A").Find(vntID, LookIn:=xlValues, lookat:=xlWhole)
If Not C Is Nothing Then
strTemp = Cells(C.Row, 3) & "," & Cells(C.Row, 4) & "," & Cells(C.Row, 5)
MsgBox strTemp, vbOKOnly, "Ergebnis von " & vntID
Else
MsgBox "ID " & vntID & " nicht gefunden", vbOKOnly, "Nix da..."
End If
End Sub
Testweise erfolgt die verkettete Ausgabe in einer MsgBox.
VG, Boris
Anzeige
AW: Mehre Zahlen in eine Zelle schreiben
11.07.2012 13:34:03
Matthias
Hallo Boris
die Funktion ist ja super. Leider landet des Ergebnis in der MsgBox. Ich brauchte es in einer Zelle, da ich das Ergebnis kopieren will und in einer anderen Programm einfügen will.
Super
Matthias
AW: Mehre Zahlen in eine Zelle schreiben
11.07.2012 13:45:37
Matthias
Hallo Boris
kann man noch eine Logik verknüpfen, wenn in einer Zelle nichts befindet, schreibe denn Wert nicht. Also in C5 steht 1, in D5 steht nichts, E5 steht 3 und ausgegeben soll nur 1,3. Geht das?
Danke
Matze
AW: Mehre Zahlen in eine Zelle schreiben
11.07.2012 14:50:04
{Boris}
Hi Matthias,
Ausgabe erfolgt nun in Spalte H:
Option Explicit
Public Sub Search_ID()
Dim vntID   As Variant
Dim C       As Range
Dim T       As Range
Dim strTemp As String
Dim x       As Long
vntID = InputBox("Welche ID soll gesucht werden?", "Suchwert")
If vntID = "" Then Exit Sub
Set C = Range("A:A").Find(vntID, LookIn:=xlValues, lookat:=xlWhole)
If Not C Is Nothing Then
For Each T In C.Offset(0, 2).Resize(1, 3) 'Werte aus Spalten C bis E der gefundenen ID
If T  "" Then strTemp = strTemp & T & ","
Next T
strTemp = Left(strTemp, Len(strTemp) - 1)
C.Offset(0, 7) = strTemp 'Ergebnis in Spalte H (=7) schreiben
Else
MsgBox "ID " & vntID & " nicht gefunden", vbOKOnly, "Nix da..."
End If
End Sub

VG, Boris
Anzeige
AW: Mehre Zahlen in eine Zelle schreiben
11.07.2012 15:40:17
Matthias
Hallo Boris
es geht super.
Danke
Matthias

353 Forumthreads zu ähnlichen Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
x ersetzen durch wert aus bestimmter zelle
Ingolf

hallo,
ich muß eine liste erstellen. die werte unten will ich nicht immer eingeben müssen, sondern nur dort wo ein wert stehen soll ein x machen. excel soll mir dann für jedes x den wert aus der zeile 2 der gleichen spalte eintragen. mache ich in eine zelle 2 x, dann muß der wert auch 2 mal...
22.08.2008 09:08:22
Thread-ID: 1003727
5 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Makrostart wenn in Zelle was geschrieben wird
Bernd

Hallo,
wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
31.08.2008 11:09:00
Thread-ID: 1006152
2 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
3
2
4
3
16
4
5
1
5
3
2
1
4
4
6
5
30
3
4
11
8
6
10
4