Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text aus UF in Tabelle übernehmen und

Forumthread: Text aus UF in Tabelle übernehmen und

Text aus UF in Tabelle übernehmen und
06.01.2008 14:23:47
Fredd
Hallo alle Zusammen
Ich habe da ein Problem bei dem ich mit meinen wenigen VBA Kenntnissen nicht weiter weiss.
Ich übergebe einen Text aus einer UserForm an meine Tabelle in Spalte G mit Diesem Code:
Dim iRow As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row + o
Cells(iRow, 7).Value = TextBox1.Text
Soweit so gut. Ich möchte aber das Der Text der in der Zelle steht nicht überschrieben wird, sondern das der Text aus der Textbox hinter den vorhandenen Text geschrieben wird und nach 40 Schriftzeichen der Text in der nächsten Zelle weitergeschrieben wird.
z.B. Zelle G3 dervorhandene Text + Text aus TextBox und nach 40 Zeichen weiter in G4 40 Zeichen usw.
Ist soetwas überhaupt möglich

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text aus UF in Tabelle übernehmen und
06.01.2008 14:32:28
Jens
Hi,
"...Ist soetwas überhaupt möglich..."
Ist es!
Kann es vorkommen, dass der Text in der Zelle schon länger als 40 Zeichen ist?
Btw, Zeilen immer As Long deklarieren!
mfg Jens

@Jens
06.01.2008 14:43:00
Jens
Hi Namensvetter :-)

Btw, Zeilen immer As Long deklarieren!


Ist wohl so nicht ganz richtig.
Mit der Typendeklaration "Long" macht man zwar eigentlich nichts falsch, aber das hängt von dem verwendeten Bereich ab:
In größeren Projekten macht sich das dann durch den Speicherbedarf bemerkbar.
Der Datentyp "Integer" hat zwar nur einen Wertebereich bis etwa 32000 ("Long" bis etwa 2100000000) benötigt jedoch nur die Hälfte des Speicherbedarfes.
Gruß aus dem Sauerland
Jens

Anzeige
AW: @Jens
06.01.2008 14:46:00
Jens
Hi,
"...In größeren Projekten macht sich das dann durch den Speicherbedarf bemerkbar..."
Pillepalle, wenn die Deklarationen wie in diesem Fall lokal ist.
Woher willst du wissen, welche Zeile mit ...end(xlup) angesteuert wird?
mfg jens

AW: @Jens
06.01.2008 14:49:00
Jens
Hi
Deshalb schrieb ich ja auch:

das hängt von dem verwendeten Bereich ab


Gruß aus dem Sauerland
Jens

Anzeige
AW: Text aus UF in Tabelle übernehmen und
06.01.2008 15:00:09
Gerd
Hallo Fredd,
40 Zeichen einschließlich dem alten Text oder maximal 40 Zeichen aus der Textbox dazu ? ... und dann
in die Zelle darunter den Rest aus der Textbox.
Wofür steht das kleine "Oh" ?
P.S.: Die größte Zahl des Wertebereichs des Variablentyps "Long" scheint von der Excel-Version abhängig zu sein.
Grüße Gerd

Anzeige
AW: Text aus UF in Tabelle übernehmen und
06.01.2008 15:06:00
Jens
Hi,
"...Die größte Zahl des Wertebereichs des Variablentyps "Long" scheint von der Excel-Version abhängig zu sein...."
Ganz klar nein! Auch mal einen Blick in die Hilfe werfen.
mfg Jens

AW: @ Jens
06.01.2008 15:56:23
Gerd
Hi,
nu ja. Bei mir sind 's "etwa" 47.483.647 mehr. Hätte ich dies mehr auf meinem Bankkonto,
dann wäre ich materiell nicht nur "etwas" zufriedener .-)
Grüße Gerd

Anzeige
AW: @ Jens
06.01.2008 16:43:36
Jens
Hi,
in welcher Version soll das denn so sein?
Kannst du mal den entsprechenden Teil der Hilfe posten?
mfg Jens

AW: @ Jens
06.01.2008 17:06:00
Gerd
Hi Jens!
Long-Datentyp
Variablen vom Datentyp Long (lange Ganzzahl) werden als 32-Bit-Zahlen (4 Bytes) mit Vorzeichen im Bereich von -2.147.483.648 bis 2.147.483.647 gespeichert. Das Typkennzeichen für Long ist das Zeichen (&).
"Long" bis etwa 2100000000"
" ....................... 2147483647"
Ach ja, xl2000 .
Gruß Gerd

Anzeige
AW: @ Jens
06.01.2008 17:16:27
Jens
Hi Gerd
Die Genauigkeit des Wertebereiches hatte ich mal vernachlässigt.
Mir ging es lediglich um den Dimensionsvergleich.
von -2147483648 bis 2147483647
ist natürlich korrekt.
Aber dieses Thema sollten wir beenden, da es eigentlich nur den Thread mit dem eigentlichen Problem von Fredd aufbläht.
Gruß aus dem Sauerland
Jens
PS: Auf meinem Konto würde ich auch auf diese Genauigkeit achten, obwohl es bei so einem Kontostand wohl nicht mehr ins Gewicht fallen würde :-))

Anzeige
AW: Text aus UF in Tabelle übernehmen und
06.01.2008 16:12:00
Erich
Hallo Fredd,
ja, im Prinzip geht das: 

Option Explicit
Sub tst()
Dim iRow As Long, strT As String
iRow = Cells(Rows.Count, 1).End(xlUp).Row ' + o was ist "o" ?
strT = Cells(iRow, 7) & TextBox1.Text
Cells(iRow, 7) = Left(strT, 40)
While Len(strT) > 40
strT = Mid(strT, 41)
iRow = iRow + 1
Cells(iRow, 7) = Left(strT, 40)
Wend
End Sub

Ein Problem: Auch wenn in deinem Beispiel G4 vorher nicht leer ist, wird die Zelle einfach überschrieben.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Text aus UF in Tabelle übernehmen und
06.01.2008 16:39:58
Fredd
Hallo an alle
erst einmal vielen dank an alle. Bei dem code habe ich mich verschrieben es ist kein o sondern eine 0
Dim iRow As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 0
Cells(iRow, 7).Value = TextBox1.Text
ja es ist richtig nach 40 schriftzeichen in die nächste Zelle also G3 nach G4 wenn dann immer noch Text über ist nach 40 Zeichen weiter in G5 usw.
Den code von Euch probiere ich erst einmal aus.
Grüße Fredd
Anzeige
;

Forumthreads zu verwandten Themen

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
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
Zeichen aus dem Text holen
Oskar

Hallo
Ich möchte aus einem Text immer 2 Zeichen holen. ZB das 3. un4. Zeichen.
Beispiel:
AABBCCDD Wenn ich das 5. und 6. Zeichen Will muss das Ergebnis so aussehen CC
Besten Dank für die Hilfe
14.10.2008 12:07:00
Thread-ID: 1016292
2 Beiträge
Webabfrage und laufzeitfehler 1004
MBorn

Liebe Excel-Freunde,
ich bitte um Eure Hilfe. Ich bekomme bei einer (einfachen) Webabfrage dauernd, aber in
unregelmäßigen Abständen, die Fehlermeldung "laufzeitfehler 1004 - auf die Datei konnte
nicht zugegriffen werden".
Doch die Datei ist vorhanden und wird auch gefunden, w...
26.01.2009 17:26:00
Thread-ID: 1043962
3 Beiträge
Text in Fußzeile aus Zelle ziehen
Sandra

Hallo zusammen!
Ich brauche mal wieder Eure Hilfe.
Meine Exceltabelle (ein Protokoll) soll im linken Teil der Fußzeile einen Text bekommen, der automatisch aus einer Zelle gezogen wird. So das sich die Fußzeile immer aktualisiert, wenn die Zelle geändert wird. Mit einer Formel geht es j...
29.01.2009 11:29:24
Thread-ID: 1044904
23 Beiträge
Controltiptext für Label auf 2 Zeilen
Leon

Hi Leute
Habe gestern von Hajo und Tino gelernt wie man für ein Label ein Controltiptext erstellt.
Meine Frage:
Der Text ist ein wenig zu lang geraten und ich möchte es auf zwei Zeilen schreiben lassen.
Wie geht das?
Gruß
Leon
01.02.2009 19:19:00
Thread-ID: 1045969
14 Beiträge
Zufällig einen Text ausgeben aus best. Zellen
Eddie

Hallo und Guten Abend.... habe mal wieder ein Problem...
Ich will gerne aus einer Anzahl von zellen (ca 100 Zeilen) .. wo bestimmte Sätze drin stehen diese Zufällig in einer Bestimmten zelle anzeigen lassen ....
Vielleicht hat ja jemand schon sowas gemacht ?
thx schon einmal
G...
15.02.2009 20:14:00
Thread-ID: 1050974
7 Beiträge
Text in Zelle abfragen und formatieren
Bernd

Hallo Zusammen,
folgendes Problem: In einer Tabelle mit mehreren Spalten beinhaltet eine Spalte einen Text. Wie kann ich aus dieser Spalte eine bestimmte Zeichenfolge auslesen/erkennen und die betreffende Zelle dann farblich formatieren? Zum Beispiel beinhaltet eine Zelle den Text ABCDEF. W...
19.02.2009 15:19:00
Thread-ID: 1052173
5 Beiträge
Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Anzeige
Teilwert aus Zelle suchen und selektieren
Addi

Hallo Zusammen,
folgendes Problem:
Ich habe eine Excel Liste mit Buchungstexten, die zum Teil so aussehen:
"Rg. Hilton/Beherb./F.Schulze/10.03.08"
Aus dieser Zelle möchte ich den Namen selektieren und einzeln in die Zelle daneben schreiben.
Die jeweiligen Namen sind bekannt...
20.03.2009 07:54:45
Thread-ID: 1062031
10 Beiträge
Zugriff auf auf Teilinhalte einer Zelle
Der

Hallo da Draußen!
Habe mal wieder ein Problem mit meiner VBA Programmierung. Ich möchte innerhalb einer Exceltabelle auf einzelne Zellen zugreifen, die ein bestimmtes Merkmal haben. Der Inhalt der Zelle beginnt mit einer Zahl (in diesem fall mit einer Postleitzahl). Ich möchte also meine Ab...
20.03.2009 14:52:09
Thread-ID: 1062230
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige