Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
692to696
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
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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
AW: zählen und neue Spalten machen
10.11.2005 11:14:43
Worti
Hallo alexandra,
was macht es denn anders?
Gruß Worti
Anzeige
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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige