Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1668to1672
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
1668to1672
1668to1672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schleife für 5 Zeilen

Schleife für 5 Zeilen
15.01.2019 21:28:33
Sergej
Hallo Leute,
ich habe in Spalte A ab Zeile 2 viele Einträge stehen.
Wie kann ich bitte per VBA den Eintrag aus Zelle A1 im Bsp. Thomas nach dem UNC GOTO= eintragen, dann die restlichen TAG.. Zeilen (s. unten), dann eine leere Zeile da zwischen und das Ganze mit Zelle A2 wiederholen usw. bis letzte gefüllte Zelle der Spalte A.
UNC GOTO=Thomas
TAG POS=1 TYPE=BUTTON ATTR=CLASS:dCJp8afkep_0fff:
TAG POS=1 TYPE=BUTTON ATTR=TXT:HalloThomas
TAG POS=1 TYPE=BUTTON ATTR=TXT:Testgut
TAG POS=1 TYPE=BUTTON ATTR=TXT:TEST1
TAG POS=3 TYPE=BUTTON ATTR=CLASS:dtttp8afkep_0m:
Das ganze soll in eine neue Tabelle oder TXT-Datei geschrieben werden.
Gruß,
Sergej

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleife für 5 Zeilen
16.01.2019 00:22:02
Piet
Hallo Sergej
kannst du bitte ein Beispieldatei mit 10-20 Zeilen machen mit den Original Daten und wie die Lösung aussehen soll.
Sollen dabei Textstellen gekürzt werden, oder evtl. in verschiedene Spalten aufgeteilt werden?
Im Augenblick kann ich mir die Lösung noch nicht vorstellen ...
mfg Piet
AW: Schleife für 5 Zeilen
16.01.2019 08:03:37
MCO
Moin!
Das sollte klappen: 
Sub generate()
Dim text As String, txt As String, Dat_name As String
Dat_name = DesktopPfad & "\" & "datensatz.txt"
Open Dat_name For Output As #1
For Each zl In Range("A:A").SpecialCells(xlCellTypeConstants)
Print #1, "UNC GOTO=" & zl
Print #1, "TAG POS=1 TYPE=BUTTON ATTR=CLASS:dCJp8afkep_0fff:"
Print #1, "TAG POS=1 TYPE=BUTTON ATTR=TXT:Hallo " & zl
Print #1, "TAG POS=1 TYPE=BUTTON ATTR=TXT:Testgut"
Print #1, "TAG POS=1 TYPE=BUTTON ATTR=TXT:TEST" & zl.Row
Print #1, "TAG POS=3 TYPE=BUTTON ATTR=CLASS:dtttp8afkep_0m:"
Print #1, ""
Next zl
Close #1
Shell "notepad.exe " & Dat_name & "", vbNormalFocus
End Sub
Function DesktopPfad()
Dim WSHShell As Object
Set WSHShell = CreateObject("wscript.Shell")
DesktopPfad = WSHShell.SpecialFolders.Item("Desktop")
Set WSHShell = Nothing
End Function

Gruß, MCO
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige