Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1240to1244
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
1240to1244
1240to1244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelleinträge trennen und untereinander schreiben

Zelleinträge trennen und untereinander schreiben
Stefan
Hallo zusammen,
ich habe hier im Forum eine Datei mit Makro gefunden, welches folgendes leistet:
(Ich habe zum besseren Verständnis die Beispieltabelle hochgeladen
https://www.herber.de/bbs/user/78004.xlsm)
Die Einträge in den Zellen der Spalte N werden bei Klick auf "Schaltfläche1" in die Zellen der Spalte A untereinander eingefügt.
Meine Frage:
Ist es möglich. daß bei Klick auf den Button "Schaltfläche1" eine Abfrage erscheint in die man eingeben kann aus welcher Spalte (also nicht zwingend N) die Einträge getrennt und untereinander geschrieben werden (also Auswahl der Quellspalte) und eine Eingabe in welche Spalte eingetragen wird (also nicht zwingend A als Zielspalte)?
Ich hoffe ich habe mich verständlich ausgedrückt.
Kann mir hiermit jemand weiterhelfen?
Viele Grüße
Stefan
Daten aufteilen - Alternativcode Bereichsauswahl
16.12.2011 13:38:26
NoNet
Hallo Stefan,
der Code im geposteten Beispiel ist nicht besonders elegant und übersichtlich, ich habe ihn daher nicht verwendet, sondern eine Alternative - inkl. Bereichsauswahl - programmiert :
Sub Daten_Aufteilen()
Dim lngZ As Long, lngS As Long, lngZA As Long, varI, arrW
Const strZ = ";" 'Hier das Trennzeichen festlegen !
On Error Resume Next
Set varI = Nothing
Set varI = Application.InputBox("Bitte Spalte mit Werten auswählen", Type:=8)
Select Case VarType(varI)
Case 9, 11   'Abbruch
MsgBox "Abbruch !"
Case 0, 7, 8, 8204    'Bereich, einzelne gefüllte oder leere Zelle
lngS = varI.Column
If varI = 1 Then
MsgBox "Bitte eine andere Spalte als Spalte A auswählen !", _
vbInformation, "Spalte A ist die ZIEL-Spalte !"
Else
lngZA = Cells(Rows.Count, 1).End(xlUp).Row
Range("A12:A" & lngZA).ClearContents 'Bereich Spalte A löschen
For lngZ = Columns(lngS).Find("*").Row To Cells(Rows.Count, lngS).End(xlUp).Row
If Cells(lngZ, lngS)  "" Then
arrW = Split(Cells(lngZ, lngS), strZ)
lngZA = Application.Max(12, Cells(Rows.Count, 1).End(xlUp).Row + 1)
If lngZA + UBound(arrW) + 1 > Rows.Count Then
MsgBox "Werte ab " & Cells(lngZ, lngS).Address & _
" könnne nicht mehr in Spalte A eingefügt werden !", vbCritical, _
"Spalte A ist zu voll !"
lngZ = Cells(Rows.Count, lngS).End(xlUp).Row 'anstatt Exit For
Else
Cells(lngZA, 1).Resize(UBound(arrW) + 1).Value = _
Application.Transpose(arrW)
End If
End If
Next
End If
End Select
End Sub
Gruß, NoNet
Anzeige
AW: Daten aufteilen - Alternativcode Bereichsauswahl
16.12.2011 14:05:04
Stefan
Hallo,
Vielen Dank für die Hilfe zunächst mal, allerdings habe ich noch folgendes Problem:
Bei Aktivieren des Makros erscheint eine InputBox "Eingabe Bitte Spalte mit den Werten auswählen". Wenn ich jetzt eine Spalte auswähle (z.Bsp. "M") erscheint eine InputBox "Bitte eine andere Spalte als A auswählen". Jetzt erscheint der Cursor als Eieruhr und ich kann keine Zielspalte auswählen. Wenn ich jetzt auf okay klicke erscheint das VBA-Fenster mit dem Makro.
Also die Eingabe der Quellspalte klappt, aber die Eingabe der Zielspalte nicht.
Aber eine Eingabe der Zielspalte ist auch nicht so entscheidend sollte die Modifikation zuviel Zeit in Anspruch nehmen, da ich hier einfach eine Spalte A einfügen kann.
Viele Grüße
Stefan
Anzeige
Sorry, mein Fehler : Ändere varI auf lngS
16.12.2011 14:25:11
NoNet
Hallo Stefan,
sorry, das war mein Fehler : Ich habe den (fast fertigen) Code getestet und er funktioniert 1A.
Ganz zum Schluss ist mir noch eingefallen, dass man Spalte A nicht auswählen darf und habe diese Prüfung eingebaut - und dann nicht mehr getestet (*Asche auf mein Haupt*).
Jetzt, da Du es schreibst fällt mir auf : Es muss heissen 
    Case 0, 7, 8, 8204    'Bereich, einzelne gefüllte oder leere Zelle
lngS = varI.Column
If lngS = 1 Then
und NICHT (wie oben gepostet) 
    Case 0, 7, 8, 8204    'Bereich, einzelne gefüllte oder leere Zelle
lngS = varI.Column
If varI = 1 Then

Nach dieser Änderung sollte es klappen !
Gruß, NoNet
Anzeige
AW: Sorry, mein Fehler : Ändere varI auf lngS
16.12.2011 14:37:10
Stefan
Hallo,
Vielen Dank. Funktioniert. Nur ein Problem gibt es noch. Nach Eingabe der gewünschten Spalte in die InputBox und klicken auf "OK" erscheint das VBA-Codefenster. Wenn ich jetzt wieder zurückgehe in das Excelfenster ist aber alles wie es sein soll. Wenn es noch möglich wäre den Wechsel in das VBA-Fenster zu vermeiden wäre es super.
Viele grüße
Stefan
Starte den Code per Alt+F8 oder per Button
16.12.2011 15:02:55
NoNet
Hallo Stefan,
wenn Du das Makro aus dem Tabellenblatt heraus per Alt+F8 startest, oder das Makro per Rechtsklick dem Button zuweist, wird der VBA-Editor nicht angezeigt !
Gruß, NoNet
AW: Starte den Code per Alt+F8 oder per Button
20.12.2011 11:13:03
Stefan
Hallo,
erst mal sorry für die verspätete Antwort.
Vielen Dank für die Hilfe
Viele Grüße
Stefan
Anzeige
noch eine Variante
16.12.2011 17:29:50
Erich
Hi Stefan,
nun habe ich eine Weile gebastelt, ohne zu sehen, dass NoNet schon eine Lösung erstellt hat...
Na ja, dann will ich jetzt auch trotzdem noch mein Ergebnis posten: 

Option Explicit
Sub SpalteZerlegen()
Dim lngQu As Long, lngZi As Long
Dim lngA As Long, arrA, lngN As Long
Dim arrN(), zz As Long, arrZ, nn As Long
lngQu = Columns(Cells(2, 10).Value).Column   ' Quellspalte
lngZi = Columns(Cells(2, 11).Value).Column   '  Zielspalte
lngA = Cells(Rows.Count, lngQu).End(xlUp).Row - 11 'Quell-Anzahl
If lngA  "" Then
arrZ = Split(arrA(zz, 1), " ; ")
For nn = 0 To UBound(arrZ)
lngN = lngN + 1            ' mehr Platz für neue Werte?
If lngN > UBound(arrN) Then _
ReDim Preserve arrN(1 To 2 * UBound(arrN))
arrN(lngN) = arrZ(nn)      ' neuer Zielwert
Next nn
End If
Next zz
If lngN Then                        ' Ausgabe der Zielwerte
ReDim Preserve arrN(1 To lngN)
Cells(12, lngZi).Resize(lngN) = Application.Transpose(arrN)
End If
End If
End Sub
Die Spaltenvorgaben werden einfach aus der Tabelle gelesen. Hier die BeiSpielMappe:
https://www.herber.de/bbs/user/78012.xlsm
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich und: Schönes Wochenende allerseits!
Anzeige
AW: noch eine Variante
20.12.2011 11:14:23
Stefan
Hallo Erich,
auf jeden Fall Herzlichen Dank für die Hilfe.
Viele Grüße
Stefan
AW: noch eine Variante
20.12.2011 11:28:25
Stefan
Hallo Erich,
hier ist nochmal Stefan. ich habe gerade dein Makro ind der vonm dir generierten Beispieltabelle ausprobiert.
Ist wirklich klasse und genau das was mir vorschwebte. Du hast mir sehr geholfen.
Vielen dank nochmal.
Viele Grüße
Stefan

304 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
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 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
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Automatisch Zeilen einfügen und Text reinschreiben
oblivion

Hallo,
hab folgendes Problem.
Ich habe ein Tabelle mit 4 Spalten. Wegen dem automatischen Zeilenumbruch habe ich keine vebundenen Zeilen.
In Excel ist die Zeilenhöhe ja auf 409 begrenzt. Ich habe aber teilweise Text der größere Spalten bräuchte.
Wenn ich die Spalte größer mach...
02.09.2008 20:54:00
Thread-ID: 1006942
5 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 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
2
2
4
5
3
5
9
4
3
5
1
2
30
3
11
1
2
5
2
2
6
4
6
1