Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zählen und neue Spalten machen

Forumthread: zählen und neue Spalten machen

zählen und neue Spalten machen
10.11.2005 10:38:23
alexandra
Ich habe folgendes Problem:
Ich habe eine Spalte mit 70 Buchstaben drin, ich möchte daraus 7 Spalten machen mit jeweils 10 Buchstaben in jeder.
Könnte mir jemand helfen?
Danke
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zählen und neue Spalten machen
10.11.2005 10:43:13
AndreasG
Hallo Alexandra,
schau dir die Funktion TEIL() an, damit kannst das bewerkstelligen
Grüße
Andreas
AW: zählen und neue Spalten machen
10.11.2005 10:45:46
alexandra
Und uaf englisch währe das?
(ich habe die englische Version von Excel)
danke
gruss
alexandra
Teil auf englisch = MID
10.11.2005 10:48:56
Worti
Anzeige
AW: zählen und neue Spalten machen
10.11.2005 10:47:17
Worti
Hallo alexandra,
wenn deine 70 Buchstaben in Spalte A stehen,
dann in Spalte B =TEIL(A1;1;10), in Spalte C =TEIL(A1;11;10) usw bis
Spalte H = =TEIL(A1;61;10)
Gruß Worti
AW: zählen und neue Spalten machen
10.11.2005 10:58:37
alexandra
Dankeschön,
ich habe jetzt nur folgendes Problem Mid macht nicht dasselbe wie Teil?
gruss
alexandra
Anzeige
AW: zählen und neue Spalten machen
10.11.2005 11:14:43
Worti
Hallo alexandra,
was macht es denn anders?
Gruß Worti
AW: zählen und neue Spalten machen
10.11.2005 11:13:55
alexandra
Na ja, hat sich erledigt, aber trotzdem funktionnieret es nicht.
wahrscheinlich mache ich was falsch

Sub Exportdata()
Worksheets ("Sheet1")
Column C = Mid(B, 1, 10)
Column D = Mid(B, 11, 10)
Column E = Mid(B, 21, 10)
Column F = Mid(B, 31, 10)
Column G = Mid(B, 41, 10)
Column H = Mid(B, 51, 10)
Column I = Mid(B, 61, 10)
End Sub

Anzeige
AW: zählen und neue Spalten machen
10.11.2005 11:25:55
Worti
Hallo,
hier das zugehörige Makro:


      
Sub alexandra()
    Dim Ende As Long
    Dim I As Long
    
    Ende = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
    For I = 1 To Ende
        Cells(I, 3).Value = Mid(Cells(I, 2).Value, 1, 10)
        Cells(I, 4).Value = Mid(Cells(I, 2).Value, 11, 10)
        Cells(I, 5).Value = Mid(Cells(I, 2).Value, 21, 10)
        Cells(I, 6).Value = Mid(Cells(I, 2).Value, 31, 10)
        Cells(I, 7).Value = Mid(Cells(I, 2).Value, 41, 10)
        Cells(I, 8).Value = Mid(Cells(I, 2).Value, 51, 10)
        Cells(I, 9).Value = Mid(Cells(I, 2).Value, 61, 10)
    Next
  
End Sub
 


Gruß Worti
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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