Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1116to1120
1116to1120
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlen aus Textfeld ( 1, 2, 5) auslesen

Forumthread: Zahlen aus Textfeld ( 1, 2, 5) auslesen

Zahlen aus Textfeld ( 1, 2, 5) auslesen
Ingo
Hallo,
In einem Textfeld werden Zeilennummern eingegeben die durch
Komma oder Semikolon getrennt werdenn z.B. ("1, 4, 7").
Jetzt möchte ich jeweils die Zeile 1, 4, 7 makieren und diesen dann kopieren.
Wie könnte das gehen?
Anzeige
Auslesen oder Kopieren? Du solltest dich...
24.11.2009 18:57:37
Luc:-?
...mal erst entscheiden, Ingo... ;-)
Gruß Luc :-?
AW: Auslesen oder Kopieren? Du solltest dich...
24.11.2009 19:05:58
Ingo
Sorry, schlecht ausgedrückt.
Ich gebe im Textfeld eigentlich nur die Zeilen an die ich aus "Tabelle1" in "Tabelle2" kopieren möchte
was für ein Textfeld? owT
24.11.2009 19:24:23
Uduuh
Anzeige
AW: was für ein Textfeld? owT
24.11.2009 19:33:48
Ingo
Textfeld oder Textbox
AW: was für ein Textfeld? owT
24.11.2009 20:00:39
Uduuh
Hallo,
in den Code der Tabelle mit der Textbox: 
Private Sub TextBox1_LostFocus()
Dim rngC As Range, arrRows, i As Long
If TextBox1  "" Then
arrRows = Split(TextBox1, ",")
Set rngC = Rows(arrRows(0))
Set rngC = Rows(arrRows(i))
For i = 1 To UBound(arrRows)
Set rngC = Union(rngC, Rows(arrRows(i)))
Next
rngC.Copy 'wohin?
End If
End Sub

Wirkt beim Verlassen der TB.
Gruß aus’m Pott
Udo

Anzeige
AW: was für ein Textfeld? owT
25.11.2009 08:16:19
Ingo
Hallo Udo,
danke für den super Tipp. Funktioniert auch fast.
Mit dem Copy ist nicht ganz richtig.
Die in der Textbox eingegebenen Zahlen sind Zeilennummer einer anderen Datei die ich auslesen möchte. Bei mir sieht das folgendermaßen aus:
Set wkbInput = Application.Workbooks.Open(strPath & "\" & strFile)
Set wksInput = wkbInput.Worksheets("Tabelle1")
wksInput.Activate
wksInput.Cells(rngC).Select !!!!! HIer ist jetzt der Haken. Da funktioniert nicht
Selection.Copy
meins.Activate
MySheet.Activate
MySheet.Cells(7 + delta, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.....
Hättest Du hierfür auch noch einen Tipp?
Anzeige
AW: was für ein Textfeld? owT
25.11.2009 09:05:25
Rudi
Hallo,
ohne Select und Activate! 
  If TextBox1  "" Then
arrRows = Split(TextBox1, ",")
Set rngC = wksInput.Rows(arrRows(0))
For i = 1 To UBound(arrRows)
Set rngC = Union(rngC, wksInput.Rows(arrRows(i)))
Next
rngC.Copy
MySheet.Cells(7 + delta, 1).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If

Gruß
Rudi
Anzeige
AW: was für ein Textfeld? owT
26.11.2009 09:54:09
Ingo
Hallo Udo,
nochmals eine Frage. Den Befehl "rngC.Copy" möchte ich nicht an dieser Stelle im Programm verweden sondern erst später.
Sobald ich das andere Dokument geöffnet habe soll er mir die Zeilen die in rngC abgelegt sind aus dem aktuellen Dokument kopieren.
Irgenwie bekomme ich das nicht hin. Hättest Du nochmals eine Tipp?
Anzeige
;

Forumthreads zu verwandten Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
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
Formelbezug aus Zelle
chris

Hallo Excelexperten,
habe eine frage und würde mich sehr über Hilfe freuen.
habe folgende Formel.
='R:\2006\Prüfungen\D 06 001\[MHU_001.xls]Deckblatt'!$A$1
diese Formel bezieht sich immer auf die aktuelle Zeile.
Wenn ich sie herunterziehe sollte es mir immer in die Formel de...
11.09.2008 14:19:13
Thread-ID: 1009123
7 Beiträge
Bestimmte Werte aus einer Zelle herausfiltern
G_G

Hallo zusammen.
Ich habe in einer Zelle einen etwas längeren Text (mit Zahlen und Buchstaben). Ich würde jetzt gerne hieraus den Wert rausfiltern (in separate Spalte), der neben der Buchstabenkombination "AT" steht.
Hört sich einfach an. Da gibt es aber noch einige Sonderfälle.
Ich...
15.09.2008 12:03:00
Thread-ID: 1009747
5 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Wert nach Änderung einer Zelle schreiben
Markus

Hallo Leute,
ich werde Excel nie wirklich verstehen. Habe wieder eine Frage: Bei Veränderung des Wertes einer Zelle möchte ich einen Wert in eine andere Zelle schreiben (klingt einfach - gelingt mir nicht!):
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandle...
01.10.2008 18:26:00
Thread-ID: 1013729
31 Beiträge
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Anzeige
Zahl aus Text
Holger

Hallo Leute,
heute hab ich mal wieder ein Problem.
Habe mir per Webabfrage Zahlen aus dem Netz in meine Tabelle eintragen lassen. Zahlen sind maximal 4-stellig vor dem Komma und mehrere Stellen rechts vom Komma. Leider kann man diese Zahlen nicht für weitere Berechnungen verwenden. Ich...
13.10.2008 08:44:00
Thread-ID: 1015926
3 Beiträge
Kommagetrennte Werte in einer Zelle
Martin

Hallo zusammen,
Ich habe folgendes Problem:
Zahlen/Werte die jeweils in einer Zelle stehen und mittels Komma (und Leerzeichen) getrennt sind, will ich einzeln untereinander in eigene Zellen verfrachten, für jeden Wert eine Zelle. Da ich hunderte solcher Zellen habe mit unterschiedlich v...
14.11.2008 13:33:53
Thread-ID: 1024555
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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