Access Listenfeld Zeilenumbruch?

Hallo,

ich würde gerne eine Zeilenumbruch in einem Listenfeld machen kann mir jemand sagen wie das geht?

(das der Text automatisch in die nächste Zeile gesetzt wird.) Ich habe schon im Internet gesucht doch nur irgendwelche VBA Schleifen gefunden. Ich möchte das allerdings NICHT mit einer Schleife machen wollen. Gibt es irgendwo einen Harken den ich übersehen habe? oder eine VBA Funktion?

Danke und Schönes Wochenende

Dennis

1 Antwort

gabrixl

05.08.2019, 08:27

Wenn ich das richtig verstanden habe, möchtest du in dem Text eines Listen-Elements eine neue Zeile erzwingen?

Normalerweise würde man dem Element einfach den String "Text 1" & Chr$(13) & Chr$(10) & " Text 2" zuweisen. Da du dies ohne Schleife erreichen willst, kannst du maximal versuchen den String einfach so einzufügen, denke aber nicht das dieser dann wie eine Variabel verarbeitet wird. Denke um eine Schleife kommst du nicht rum.

derDennis99de

Beitragsersteller

05.08.2019, 08:35

ok nur in der Tabelle steht ja der Text auch schon mit Zeilenumbruch drin. Wie Prüfe ich den dann wann er einen Umbruch machen soll?

gabrixl

05.08.2019, 11:32

@derDennis99de

Du musst für die Elemente, welche in deiner Tabelle stehen und schlussendlich in das Listenelement kommen sollen, eine For-Each Schleife machen, in welchem du pro Tabellensatz ein Listenelement hinzufügst. Du könntest theoretisch ja dort wo das Skript einen Umschlag machen soll, ein Sonderzeichen einbauen. Dies wird dann einfach ersetzt mit dem Umschlag.

Ähnliche Beiträge

wie kann ich excel daten ab einer bestimmten Zeile in access importieren?

ich importiere mehrere Excel-Datei Inhalte in eine ACCESS Tabelle, jedoch möchte ich erst ab einer bestimmten Zeile importieren. Wie geht das per VBA natürlich?

...zum Beitrag

VBA for-schleife: Leere Zeilen überspringen?

Hallo! Ich habe mir in Excel mit VBA eine Schleife gebastelt zur Zielwertsuche. Da ich VBA sonst nie brauche möchte ich hierfür nicht erst VBA lernen. Daher hier meine Frage ob mir hier jemand helfen kann. Es geht um folgendes Skript. Dieses macht Probleme wenn zwischen den Zeilen Leerzeilen sind (Fehler 400). Kann man das irgendwie verhindern? Die leeren Zeilen z.B. überspringen?

Vielen Dank!

Sub PreisBerechnung()
Dim IntZeile As Integer
For IntZeile = 4 To 199
Cells(IntZeile, 33).GoalSeek Goal:=2.5, ChangingCell:=Cells(IntZeile, 26)

Next
End Sub

...zum Beitrag

VBA Zeile löschen, Fehler in der Schleife?

Ich habe die Variable a formuliert und diese auf True gesetzt, nun soll wenn in einer Textbox keine nummerischen Zeichen eingetragen werden, die letzte Zeile gelöscht werden. In meinem Makro habe ich noch weitere Bedingungen formuliert, die dasselbe bereits tun, allerdings jetzt bei der Variable bekomme ich nur Fehler raus.

...zum Beitrag

Microsoft Access Umlauten automatisch ändern, auch im Vba Code?

Hallo,

Ich musste von einem Ausgeschiedenen Kollegen eine grosse Access Datenbank mit vielen selbst programmierten Funktionen ändern.

Nun hatten wir das Problem das bei Englisch sprachen Kollegen die Datenbank nur Fehler macht aufgrund der verwendeten Umlaute (in Formulare, Abfragen.... selbst in den Vba Codes sind Umlaute enthalten)

Gibt es eine Möglichkeit diese sozusagen automatisch oder mittels Vba Code oder sonstiges auf ae statt ä zu ändern?

...zum Beitrag

Excel VBA Zelleninhalt in Zellen Aufteilen

Hallo,

Ich möchte gerne diesen Inhalt:"VE=0,00126"der in Zeile A1 Steht so Aufteilen das am Ende in A1 "VE=" steht und in B1"0,00126" Gibt es einen Befehl der mir da helfen könnte? Mfg Dennis

...zum Beitrag

Mit Access und VBA einen formatierten Excel-Export durchführen?

Guten Tag, ich hänge mal wieder bei einer Access - Excel Frage fest.

Ich habe ein Access eine Abfrage geschrieben, die mir sortiert eine ID, den zugehörigen Namen und alle dazu zugewiesenen Daten ausgibt.

Da jede Id + name mehrere Daten haben kann, steht das ganzen in mehreren zeilen untereinander. Ich möchte das ganze nun in eine Excel-Datei via Makro exportieren und das ganze so formatieren das Id + name nur einmal drann steht und dann alle Daten.

Das ganze sieht also eig. so aus.

id || name || daten

1 || n1 || daten1

1 || n1 || daten2

1 || n1 || daten3

und soll in der Exel Datei dann so aussehen.

id || name || daten

1 || n1 || daten1

_ || _ || daten2

_ || _ || daten3

_ bedeutet das dort kein Eintrag in der Zelle mehr steht. Ich habe das bisher so gemacht, das ich Die Daten aus Access händisch in eine Excel kopiert habe und dann dort mit einem Makro alles raus sortiert habe. Dim xErsteZeile As Long Dim xZeile As Long

        xErsteZeile = Cells(Rows.Count, 1).End(xlUp).Row
    
        For xZeile = xErsteZeile To 1 Step -1
          If Application.WorksheetFunction.CountIf(Columns(1), Cells(xZeile, 1).Value) > 1 Then
                Range("A" & xZeile).Select
                Selection.Delete Shift:=xlUp
                Range("B" & xZeile).Select
                Selection.Delete Shift:=xlUp
          End If
        Next

Ich würde das ganze jetzt aber über Access machen da es ja der Ausgangspunkt ist. Wenn ich ein Export in ACCES anschaue in VBA sieht dieser ja so aus.

    DoCmd.OutputTo acOutputQuery, "jh_01_01_Abfrage", "Excel97-Excel2003Workbook(*.xls)", "", True, "", , acExportQualityPrint

kann ich davor die Daten noch bearbeiten wie in Excel? Und wenn ja kann mir eventuell jemand einen Tipp geben?

Würde mich sehr freuen.

Grüße

Frost.

...zum Beitrag

Variable Verliert ihren wert VBA

Hallo das Problem steht oben und zwar am Anfang wird man nach USER ID und Kennwort gefragt die sollten laut theorie in den Beiden Lokalen variablen gespeichert werden sollang die Access andwendung offen ist. Aber wenn die Funktion die die Werte in dei Variablen schreibt Beendet ist werden die beiden wieder Geleert.

Danke im Varraus

ToHan0510

...zum Beitrag

Wie suche ich mittels VBA nach einem Wert in einer anderen Datei?

Hallo, folgendes Problem: ich habe zwei Excel-Dateien, in beiden sind Datensätze mit eindeutigen Nummern. Jetzt soll es in Datei-A nacheinander jede Zeile der Spalte A nehmen, in Datei-B danach suchen und wenn es nicht gefunden wurde, soll es die nicht gefundene Zeile aus Datei-A in Datei-B an die letzte Stelle anfügen. Und das soll es mit jeder einzelnen Zeile aus Datei-A machen (also mit einer While-Schleife).

Kann mir wer helfen?

...zum Beitrag

Excel Macro VBA löschen bestimmter Zellen

Hallo,

habe bisher nicht soviel Erfahrung mit VBA und bisher kam ich mit der Macroaufzeichnen funktion gut Zugange. Ich habe eine Tabelle die 271 Zeilen Umfasst, in Spalte C steht der Name und in Spalte D der Vorname. Nun soll man den Namen irgendwo eingeben können (Inputbox oder ähnliches) und dann nach dem Namen in Spalte C und D gesucht werden. Die gefundene Zeile soll gelöscht werden.

Kennt sich da jemand aus und kann mir helfen? Danke schon einmal

...zum Beitrag

EXCEL - Zeitstempel (VBA)?

Ich benötige eine (VBA) Lösung für folgende Anforderung

In Spalte A:A soll JE ZEILE ein Zeitstempel gesetzt werden, wenn in Spalte B:B in gleicher Zeile ein Eintrag erfolgt. Der Zeitstempel soll TT.MM.JJ hh:mm formatiert sein und fix bleiben Also Eintrag in Zelle B10 = Zeitstempel 07.10.16 10:45 in A10 Eintag in Zelle B11 = Zeitstempel 07.10.16 10:47 in A11 usw

...zum Beitrag

Mit Excel VBA bestimmte Zeilen in anderes Tabellenblatt kopieren?

Hallo zusammen!

Wie schaffe ich es in Excel mithilfe von VBA eine bestimmte Zeile, welche in der ersten Spalte mit einem Index (1.1, 1.2 ...) gekennzeichnet wurde, durch die Angabe des Indexes die genaue Zeile in mein anderes Tabellenblatt zu kopieren.

Ich gebe also zum Beispiel im Tabellenblatt 2 in die erste Spalte "1.2" ein und es kopiert automatisch die mit "1.2" gekennzeichnete Zeile aus dem Tabellenblatt 1 in das Tabellenblatt 2.

Vielen Dank schonmal

...zum Beitrag

Wie kopiert Excel in VBA eine Zeile in ein anderes Tabellenblatt in die NÄCHSTE LEERE ZEILE?

Hi,

ich habe eine Frage zu Excel VBA!

Da ich mich nicht besonders gut auskenne, werde ich ein Makro erstellen welches die ganze Zeile einfach in ein anderes Tabellenblatt kopiert. Dieses Makro möchte ich dann so ändern, dass die kopierte Zeile im anderen Tabellenblatt, in dem sie eingefügt werden soll, in die nächste LEERE Zeile eingefügt wird. Könnt ihr mir bitte schreiben, wie dieser Befehl heißt, bzw. was ich machen muss?

Und noch eine Frage:

Kann man Makros via Wenn-Funktion ansprechen, wenn ja, wie?

Danke für die Antworten schon im Voraus!

...zum Beitrag

Excel-VBA: Nächste sichtbare Zeile bearbeiten

Ich muss z.T. große Dateien mit VBA bearbeiten, wobei oftmals mehrer 10.000 Datensätze ausgeblendet sein können. Diese müssen nicht bearbeitet werden.

Bisher habe ich die nächste zu verarbeitende Zeile gesucht, indem ich alle ausgeblendeten Zeilen per Schleife ignoriert habe (If ActiveSheet.Rows(_ExcelRow).EntireRow.Hidden). Dies kann bei 30.000 Sätzen aber schon mal eine ganze Weile dauern. Gibt es stattdessen eine elegantere Methode? Sendkeys("{Down}") funktioniert bei mir nicht, wenn Excel minimiert ist.

...zum Beitrag

Per VBA Zeilenumbruch entfernen?

Hallo. Ich schreibe grade ein Makro und hänge ein steller fest. Ich muss in einer Zeile in jeder Zelle den manuellen Zeilenumbruch entfernen. Bisher bin ich soweit gekommen

lzeile = Cells(Rows.Count, 1).End(xlUp).Rows.Row For t = 1 To lzeile

Cells(t, 2).Replace Chr(10)

Next t

So läuft es zwar durch aber die Zeilenumbrüche werden auch nicht entfernt. Hat jemand einen Tip was ich an meinem Code ändern muss?

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen