Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1144to1148
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
Inhaltsverzeichnis

werte in anderes tabellenblatt mit ; kopieren

werte in anderes tabellenblatt mit ; kopieren
Helmut
hallo liebe vba’ler,
noch eine letzte frage für heute:
ich habe ein excel-sheet. In diesem habe ich 5 spalten, in denen sich daten (Zahlen, Worte) befinden. Wie kann ich über ein vba-script diese daten in ein anderes tabellenblatt des sheets kopieren, und zwar so, dass die kopierten daten (eben nach der kopie in das tabellenblatt) einen strichpunkt (;) am ende haben. bis auf die werte in der letzten spalte!
Ergebnis Bsp: so sollten die werte (texte) in den zellen A-E im anderen tabellenblatt stehen
0,6667; 0,534; 0,2345; 0,2984; ABC
0,5678; 0,645; 0,8696; 0,7354; GCD
Usw.
Danke im voraus!!
Lg
Helmut

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

Betreff
Benutzer
Anzeige
AW: werte in anderes tabellenblatt mit ; kopieren
08.03.2010 17:51:04
Tino
Hallo,
vielleicht gehts hiermit.
Sub test()
Dim meAr(), rngBereich As Range
Dim A&, AA&

Set rngBereich = Tabelle1.UsedRange.Columns("A:E")

meAr() = rngBereich.Value2

For A = 1 To Ubound(meAr)
    For AA = 1 To Ubound(meAr, 2)
        If meAr(A, AA) <> "" Then meAr(A, AA) = meAr(A, AA) & ";"
    Next AA
Next A

Tabelle2.Range(rngBereich.Address) = meAr

End Sub
Gruß Tino
Anzeige
ach so außer die letzte...
08.03.2010 17:54:10
Tino
Hallo,
einfach ein -1 einbauen.
Sub test()
Dim meAr(), rngBereich As Range
Dim A&, AA&
Set rngBereich = Tabelle1.UsedRange.Columns("A:E")
meAr() = rngBereich.Value2
For A = 1 To UBound(meAr)
For AA = 1 To UBound(meAr, 2) - 1
If meAr(A, AA)  "" Then meAr(A, AA) = meAr(A, AA) & ";"
Next AA
Next A
Tabelle2.Range(rngBereich.Address) = meAr
End Sub
Gruß Tino
AW: ach so außer die letzte...
08.03.2010 20:10:06
Helmut
Hi Tino,
ich werde das morgen gleich probieren und Bescheid geben!!
Danke dir vorerst!
LG
Helmut
AW: ach so außer die letzte...
08.03.2010 20:35:51
Helmut
Hi Tino,
das funkt PERFEKT!!! Ich danke dir vielmals!!!
LG
Helmut
Anzeige
AW: ach so außer die letzte...
08.03.2010 20:47:12
Helmut
kurze frage noch:
was bedeutet eigentlich das & nach dem A und AA?
lg
helmut
dies ist die Kurtzschreibweise...
09.03.2010 18:05:41
Tino
Hallo,
für die Deklarierung.
Anstatt
Dim A&, AA&
Hätte ich auch so schreiben können.
Dim A As Long, AA As Long
Gruß Tino

345 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige