Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
996to1000
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
996to1000
996to1000
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle in Textbox anzeigen lassen

Tabelle in Textbox anzeigen lassen
25.07.2008 15:46:56
Jan
Moin,
ich habe in Excel 2003 per VBA ein Formular erstellt mit einer textbox und einem commandbutton. Zudem habe ich eine Telefonliste im Tabellenblatt1 mit Name, Vorname und Telefonnummer (spalte a bis c) die ca 100 Einträge enthält.
Ich möchte nun, dass diese Tabelle in der Textbox angezeigt wird, wenn ich auf den Commandbutton drücke. Dabei soll die Tabellenstruktur in der textbox übernommen werden. Also ähnlich dem Aussehen, wenn ich eine kleine Tabelle von Excel nach Word kopieren. Irgendwie muss diese Tabelle (a1:c100) in die Textbox eingebettet werden.
Ich hoffe ich konnte mein Problem soweit verdeutlichen, dass es verständlich geworden ist.
Viele Grüße
Jan

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle in Textbox anzeigen lassen
25.07.2008 16:12:35
Matthias
Hallo
Naja die Tabelle selbst, so wie sie angezeigt ist, kan ich nicht in eine Terxtbox bringen. (ein Anderer vielleicht)
Aber eine ähnliche Struktur wie der Aufbau aus 3 Spalten und 100 Zeilen ist schon möglich.
https://www.herber.de/bbs/user/54137.xls
Kommt das so für Dich in Frage?
Gruß Matthias

AW: Tabelle in Textbox anzeigen lassen
25.07.2008 16:40:10
Jan
Danke Matthias,
vielen Dank für Deine Hilfe. Die Textbox sieht gut aus. Wenn Du jetzt noch eine Idee hast, wie das Ganze auch noch in Spaltenform gebracht werden kann, ist das Ergebnis perfekt. Die Namen und Nummern sind alle unterschiedlich lang und verzerren die Anzeige und die Spalten gehen durch die Verschiebung dann verloren.
Gruß
Jan

Anzeige
Überdenk mal den Vorschlag von ransi ...
25.07.2008 19:25:00
ransi
Hallo Jan
Überdenk mal den Vorschlag von ransi ...
... ich bin da voll auf seiner Seite :o)
Userbild
Gruß Matthias

AW: Tabelle in Textbox anzeigen lassen
25.07.2008 17:51:43
ransi
HAllo JAn
Wenn es dir hauptsächlich um die Tabellendarstellung geht, schau dir das mal an:
' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit



Private Sub UserForm_Initialize()
CommandButton1.TakeFocusOnClick = False
With TextBox1
    .MultiLine = True
    .WordWrap = False
    .ScrollBars = fmScrollBarsBoth
    .Font.Name = "Courier"
    .Font.Underline = True
End With
End Sub


Private Sub CommandButton1_Click()
Dim Arr
Arr = Sheets("Tabelle1").Range("A1:C100")
Dim tmp
Dim L As Long
Dim S As Integer
Redim tmp(UBound(Arr))
For L = 1 To UBound(Arr)
    For S = 1 To UBound(Arr, 2)
        If Len(Arr(L, S)) = 0 Then
            Arr(L, S) = Space(20) & "|" 'Wenn mehr Zeichen in den Zellen sein können: anpassen.
            Else:
            Arr(L, S) = Space(20 - Len(Arr(L, S))) & Arr(L, S) & "|"
        End If
        tmp(L) = tmp(L) & Arr(L, S)
    Next
Next
TextBox1.Text = Join(tmp, vbCrLf)
End Sub

ransi

Anzeige
Wenn du dich...
25.07.2008 18:06:33
ransi
Hallo
...allerdings dazu durchringen könntest eine ListBox zu nehmen, wirds erheblich einfacher.
' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 3
End Sub

Private Sub CommandButton1_Click()
Dim arr
arr = Sheets("Tabelle1").Range("A1:C300")
ListBox1.List = arr
End Sub

ransi

Anzeige
AW: Tabelle in Textbox anzeigen lassen
29.07.2008 10:29:00
Jan
Danke für Eure Hilfe. Das hat mir sehr weitergeholfen.
Gruß
Jan

306 Forumthreads zu ähnlichen Themen

Artikel-Summen ohne Pivot-Tabelle?
Ulrich

Hallo zusammen,
ich habe eine lange Liste mit Artikeln und deren Verkaufzahlen (auch jede Menge doppelte).
Kann ich Summen der Verkaufszahlen nach Artikel-Nummer bilden ohne Privot-Tabelle? Mit SVerweis kriege ich ja jeweils nur den ersten Artikel...
Danke im Voraus und Grüße,
...
01.09.2008 11:36:00
Thread-ID: 1006380
3 Beiträge
Anzeige
Pivottabelle / Summen-/Produktbildung
Bernd

Hallo,
ich habe ich ein wenig in Pivottabellen eingearbeitet und habe folgende Frage anhand beigefügter Musterdatei:
Die Datei https://www.herber.de/bbs/user/59628.xls wurde aus Datenschutzgründen gelöscht
Ich würde gerne das Produkt aus Volumen 1 und Volumen 2 pro Artikel zuerst z...
20.02.2009 15:26:00
Thread-ID: 1052477
3 Beiträge
Pivottabelle - ohne Doppelte
Max

Hallo Excel-Experten,
stehe vor einem Rätsel. Ich habe eine Liste, wo auch Zahlen doppelt vorkommen.
Jetzt dachte ich, dass ich über eine Pivottabelle die Anzahl (ohne Doppellte) rausbekomme.
Beispiel:
1
1
1
2
4
Das wäre die Anzahl 3 (1, 2 , 4). Der Rest ist...
20.05.2009 21:34:35
Thread-ID: 1076500
9 Beiträge
Anzeige
Pivottab: Werte als % anzeigen
André

Moin zusammen,
ich habe hier ein kleines Verständnisproblem bei einer Pivot-Tabelle. Muß dazu sagen, daß ich Pivottabellen bisher nur selten verwendet habe.
Die Pivottabelle hat mehrere Spalten, darunter z.B. Verkaufspreis und Rohertrag. Diese beiden Spalten sind jeweils in Euro die Sum...
10.06.2009 15:35:59
Thread-ID: 1080522
7 Beiträge
Fehler Pivotfield "Summe/Anzahl"
Florian

Hallo Excelgemeinde!
Per Makro erstelle ich diverse Pivottabellen, und immer wieder plagt mich derselbe Fehler: will ich z.B. die Anzeige auf Summe stellen, so muss ich das entsprechende Pivotfeld über PivotFields("Sum of [Spaltenname]") oder PivotFields("Anzahl of [Spaltenname]") anspreche...
26.06.2009 10:31:43
Thread-ID: 1084433
4 Beiträge
Excel Pivottabelle Teilergebnisse
Andreas

Hallo Zusammen,
ich habe eine Pivottabelle erstellt, in der aktuell die Teilergebnisse ausgeblendet sind. Gibt es eine Möglichkeit die Teilergebnisse in der Spalte neben den Einzelwerten anzeigen zu lassen?
BSP:
Rubrik1-
----Karton 7
----Tasche 2----Summe Rubrik1: 9
Rubr...
27.07.2009 13:49:31
Thread-ID: 1091598
7 Beiträge
Pivot Tabelle Pad ändern
Stu

Hallo,
ich habe in einer Exceldatei "1" eine Pivottabelle, die auf Daten einer anderen Exceldatei "2" (mehrere Tabellenblätter) zurückgreift. Nun hat sich der Name der Datei "2" in "3" geändert. Da sich der Pfad der Verknüpfung nicht automatisch anpasst, möchte ich den gerne manuelle ändern...
30.11.2009 17:45:11
Thread-ID: 1121049
8 Beiträge
Pivot Tabelle / beliebige Zwischensummen/Subtotals
Benjamin

Hallo Forum,
ich versuche (und zweifel langsam schon an mir...), in einer Pivot Tabelle beliebige Zwischensummen einzufügen. Der Umgang mit den "normalen" Zwischensummmen ist mir ansonsten geläufig, sprich Zwischensummen unter einer Kategorie...
Ich komme an folgender Stelle nicht weite...
28.01.2010 13:34:36
Thread-ID: 1133552
3 Beiträge
Anzeige

Links zu Excel-Dialogen

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