Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1116to1120
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
1116to1120
1116to1120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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?

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
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
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
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

338 Forumthreads zu ähnlichen 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
Anzeige
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
Zahlen aus aus Text extrahieren und addieren
Bernd

Hallo,
ich würde gerne aus einer Zelle, die sowohl Zahlen, aber auch Text enthält, die Zahlen "extrahieren" und miteinander addieren. Der Inhalt der Zelle B2 z.B. würde so aussehen:
'+15 Autos;-10 Waschmaschinen;-3 Schränke
Nun möchte ich in Zelle C2 das Ergebnis sehen: 2
Wie kö...
11.09.2008 16:20:36
Thread-ID: 1009173
10 Beiträge
Anzeige
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
Anzeige

Links zu Excel-Dialogen

TextBox

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
6
16
6
9
4
4
1
5
30
3
1
2
5
2
4
8
5
9
2
1
4
2
4
22
1