Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
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
1464to1468
1464to1468
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

TextBoxen Inhalte ohne leere TextBoxen in Tabelle

Forumthread: TextBoxen Inhalte ohne leere TextBoxen in Tabelle

TextBoxen Inhalte ohne leere TextBoxen in Tabelle
18.12.2015 17:11:00
Frank
Hallo Zusammen!
Auf einer UF befinden sich 34 TextBoxen (fortlaufend - TextBox1 - 34). Es sind aber nicht immer alle mit Text versehen, dies aber immer verschieden. Die Inhalte der TextBoxen sollen in ein Tabellenblatt geschrieben werden, das immer bitte untereinander, so dass im Tabellenblatt keine Leerzellen entstehen. Ich hoffe ihr konntet mich verstehen und habt 'ne Lösung für mich. Herzlichst Dank!
Gruß Frank H.

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBoxen Inhalte ohne leere TextBoxen in Tabelle
18.12.2015 17:37:47
Nepumuk
Hallo,
im Prinzip so:
Private Sub CommandButton1_Click()
    Dim lngIndex As Long, lngRow As Long
    For lngIndex = 1 To 34
        With Controls("TextBox" & CStr(lngIndex))
            If .TextLength > 0 Then
                lngRow = lngRow + 1
                Cells(lngRow, 1).Value = .Text
            End If
        End With
    Next
End Sub

Gruß
Nepumuk

Anzeige
AW: TextBoxen Inhalte ohne leere TextBoxen in Tabelle
18.12.2015 17:57:31
Frank
Hallo Nepumuk!
Funzt bestens. Herzlichst Dank und ein schönes WE!
Gruß Frank H.

AW: TextBoxen Inhalte ohne leere TextBoxen in Tabelle
18.12.2015 17:44:33
Peter
Hallo Frank,
das sollte so funktionieren: 
Option Explicit
Private Sub CommandButton1_Click()
Dim lZeile  As Long     '  die lfd. Zeile
Dim iIndx   As Integer  '  der For/Next Schleifen-Index hier die TextBox-Nummer
With ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen!
'          ist die Zelle A1 NICHT leer?
If .Range("A1").Value  "" Then
'           dann die letzte belegte Zeile in Spalte 1 = A ermitteln und 1 abziehen
lZeile = .Cells(.Rows.Count, 1).End(xlUp).Row - 1
Else
lZeile = 0 ' wenn die Zelle A1 leer ist, die Zeile mit NULL starten lassen
End If
For iIndx = 1 To 34 ' alle 34 TextBoxes abarbeiten
'            ist die TextBox NICHT leer?
If Trim$(Controls("TextBox" & iIndx).Value)  "" Then
lZeile = lZeile + 1 ' die Zeile um 1 erhöhen
'               den TextBox-Inhalt einfügen
.Range("A" & lZeile).Value = Controls("TextBox" & iIndx).Value
'              die übertragene TextBox wieder leeren
Controls("TextBox" & iIndx).Value = ""
End If
Next iIndx
End With
End Sub

Gruß Peter

Anzeige
AW: TextBoxen Inhalte ohne leere TextBoxen in Tabelle
18.12.2015 17:56:09
Frank
Hallo Peter!
Auch dir Dank. Ich habe mich für Nepumuk seinen Code entschieden, aber dennoch herzlichst Dank für dein Interesse und auch dir ein schönes WE.
Gruß Frank H.
;

Forumthreads zu verwandten Themen

Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
Anzeige
Fehler beim Kopieren von Tabelle in neue Datei
Tabelle

Guten Abend
Aus einer Datei möchte ich gerne eine Tabelle via "Verschieben oder kopieren" in eine neue Arbeitsmappe verschieben (mittels Aktivieren des Kästchens "Kopie erstellen").
Das ist in der Regel auch kein Problem. Doch heute scheitere ich bei einer bestimmten Datei daran, da bei...
28.08.2008 17:48:35
Thread-ID: 1005548
3 Beiträge
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
Diagramm mit VBA ohne Bezüge kopieren
Dagmar

Hallo VBA-Experten,
ich kopiere per VBA den Inhalt eines Vorlagenblattes (nicht das Blatt selber, das geht nicht, weil die Copy-Methode nur begrenzt durchführbar ist) und dort ist auch ein Diagramm enthalten. Dummerweise bleiben beim Kopieren die festen Bezüge erhalten und verweisen so auf...
10.12.2008 07:43:00
Thread-ID: 1031557
4 Beiträge
Anzeige
Arbeitsblatt kopieren ohne Quellcode
Oliver

Hallo zusammen,
ich habe gerade in mühsamer Arbeit folgenden Code zum Ablegen von Sheets in Workbooks zusammengeschustert:
Dim strDatei As String
strDatei = "Ablage.xls"
Set wksMappeZ = Workbooks.Open(strDatei)
Set wksMappeQ = ThisWorkbook
wksMappeQ.Sheets("Kalkulation")...
24.02.2009 14:58:21
Thread-ID: 1053533
4 Beiträge
Daten per Makro kopieren ohne Formeln
Kai

Hi,
ich möchte Zeilen innerhalb einer Mappe von einem Tabellenblatt ins ander kopieren. Meine Daten stehen in der Tabellen "IMPORT" (Zeilen 10:100) und sollen nach "DATENBESTAND" ab Zeile 50 reinkopiert werden.
Das kopieren alleine wäre sicher nicht das Problem, aber in meinem Tabellenb...
05.03.2009 13:05:31
Thread-ID: 1056794
3 Beiträge
Tabellenblatt Kopieren, mit anderem Name speichern
Mandy

Hi,
Hoffe mal wieder auf Eure Hilfe: Wie kann ich denn per Makro in meiner XLS das Sheet "Ablage" kopieren und im gleichen sheet unter dem Name "Data" wieder einfügen ?
Danke
mandy
24.03.2009 14:35:27
Thread-ID: 1063343
3 Beiträge
VBA - Formeln kopieren mit Bezug auf andere Sheets
Fabian

Hallo Zusammen,
ich habe folgende Problemstellung:
Eine Exceldatei *xlsx mit insgesamt 4 Tabellenblättern.
Tabellenblatt 1 - Material Data - Dateneingabe ab Zeile 2.
Tabellenblatt 2 - ABCXYZ - nicht relevant für das Problem
Tabellenblatt 3 - Life Time Cycle - Berechnung, di...
16.09.2009 09:14:54
Thread-ID: 1103102
5 Beiträge
Anzeige
Formelbezug ändert sich bei kopieren von Zellen
Zellen

Hallo zusammen,
ich habe ein Tabellenblatt erstellt, in dem durch mehrere Nutzer Datensätze in Zeilen eingegeben werden. Gleichzeitig sind in die Zeilen schon Formeln eingetragen und per Blattschutz gegen versehentliche Änderungen des Users geschützt.
Wird nun eine Zelle kopiert, ändern...
27.10.2009 22:25:08
Thread-ID: 1112615
4 Beiträge
Fehlermeldung bei Tabellenkopieren mit Makro
herbi

Hallo
ich habe ein Makro welches mir den Inhalt aller Tabellenblätter einer Datei der Reihe nach in ein extra Tabellenblatt "work" kopiert. Dabei wird der Inhalt von Tabellenblatt X ab A1 in das Tabellenblatt work ab Position B1 eingefügt. In Spalte A kommt vor jede Zeile der Name des Tabe...
26.01.2010 16:36:55
Thread-ID: 1133071
2 Beiträge
Tabellenblatt kopieren ohne Ref zu Originaltab
steffen.f

Hallo zusammen,
ich war schon glücklich, dass ich es geschafft habe, mit folgendem Code aus einer Vorlage ein Tabellenblatt in ein Workbook zu kopieren, in dem gerade gearbeitet wird.
Windows(arbeit).Activate
Sheets(Sheets.Count).Activate
s = Sheets.Count
ActiveSheet.Rows(2...
09.02.2010 11:34:24
Thread-ID: 1136926
3 Beiträge
Tabellen vergleichen, kopieren best. Zellinhalte
Markus

Hallo, liebe Excel-Spezialisten !
Ich habe diesen Beitrag bereits gestern in´s Forum gestellt - leider habe ich keine einzige Antwort erhalten (war wahrscheinlich schon zu spät); deshalb versuch ich´s nochmal:
Ich bin auf der Suche nach einem Makro das folgendes machen sollte:
Ich h...
23.04.2010 14:29:16
Thread-ID: 1153350
6 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