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

Teil von Zellenwert Importieren

Forumthread: Teil von Zellenwert Importieren

Teil von Zellenwert Importieren
08.12.2006 10:52:00
Zellenwert
Hallo Leute,
ich möchte eine Tabelle vereinfachen. Mit folgendem Code werden Werte aus einer Zelle gelesen und Importiert:
With Sheets("Daten")
For i = 2 To .Cells(.Rows.Count, 3).End(xlUp).Row
If .Cells(i, 20) >= lngStart And .Cells(i, 20) wks.Cells(k, 2) = .Cells(i, 2)
wks.Cells(k, 5) = .Cells(i, 20)
wks.Cells(k, 10) = .Cells(i, 25)
k = k + 1
End If
Kann dieser Code so angepasst werden, dass nicht der ganze Zellenwert, sondern nur die ersten 4 Zeichen in die Spalte 2, und die letzten 3 Zeichen in die Spalte 3 Importiert werden? Die Zellen der zu importierenden Spalte sind im Standardformat und weisen folgende Struktur auf: "1111 AAA".
Bin gespannt auf eure Tipp's .... ich habe es nicht geschafft!
Gruss bully
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teil von Zellenwert Importieren
08.12.2006 11:30:35
Zellenwert
Hallo Martin,
ich habe den Code für meine Datei angepasst. Er sieht nun so aus:

Sub h()
Dim Wert As String
t = Sheets("7").Range("B:B").Value
Wertrechts = Right(t, Len(t) - 4)
Wertlinks = Left(t, Len(t) - 3)
Sheets("7").Range("C:C").Value = Wertrechts
Sheets("7").Range("D:D").Value = Wertlinks
End Sub

Es funktioniert leider nicht. Liegt es daran, dass ich ihn auf jede Zeile anwenden möchte, oder liegt es an der Einfügeposition in meinem Code? Wo genau müsste er platziert sein?
Gruss bully
Anzeige
AW: Teil von Zellenwert Importieren
08.12.2006 12:55:15
Zellenwert
Hallo Bully
Was ist k?
Dim Wert As String
i = 1
Do until i = deine Zeilenanzahl
t = Sheets("7").Cells(i,2).Value
Wertrechts = Right(t, Len(t) - 4)
Wertlinks = Left(t, Len(t) - 3)
Sheets("7").Cells(i,3).Value = Wertrechts
Sheets("7").Cells(i,4).Value = Wertlinks
i =i + 1
Loop
End Sub
So vielleicht?
Gruß Martin
Anzeige
AW: Teil von Zellenwert Importieren
08.12.2006 15:27:46
Zellenwert
Hallo Martin,
k definiert die Anfangszeile und entspricht dem Wert 10. Mit deinem Code komme ich immer noch nicht zurecht. Ich habe diverse Anpassungen probiert, es will einfach nicht funktionieren.
Ist es in VBA nicht möglich, wie mit der Funktion TEIL, nur die gewünschten Zeichen 1-4, oder 5-8 in eine separate Spalte zu importieren?
Gruss bully
Anzeige
AW: Teil von Zellenwert Importieren
08.12.2006 22:47:11
Zellenwert
Hi,
hier also der vollständige Code:

Sub GetData(wks As Worksheet, lngStart As Long, lngEnd As Long)
Dim i As Long, k As Long
Application.ScreenUpdating = False
k = 10                                                   'Startreihe
wks.Rows("10:65536").Delete                              'Werte löschen
'Daten übertragen:
With Sheets("Daten")
For i = 2 To .Cells(.Rows.Count, 3).End(xlUp).Row
If .Cells(i, 20) >= lngStart And .Cells(i, 20) <= lngEnd Then
wks.Cells(k, 1) = wks.Cells(6, 4)               'Index
wks.Cells(k, 2) = .Cells(i, 2)                  'Bez.
wks.Cells(k, 5) = .Cells(i, 20)                 'Datum
wks.Cells(k, 5).NumberFormat = "ddmmyyyy"       'Format
wks.Cells(k, 6) = .Cells(i, 24)                 'Eber Rasse
wks.Cells(k, 7) = .Cells(i, 23)                 'Eber-Zeichen
wks.Cells(k, 9) = .Cells(i, 26)                 'KB-Art
wks.Cells(k, 10) = .Cells(i, 25)                'KB-Anzahl
k = k + 1
End If
Next
wks.Range("L1") = k - 10                              'Anzahl
End With
'sortieren (aufsteigend=xlAscending; absteigend=xlDescending):
With wks
.Range("B10:AE" & .Cells(.Rows.Count, 3).End(xlUp).Row).Sort _
Key1:=.Range("D10"), _
Order1:=xlAscending, _
Key2:=.Range("C10"), _
Order2:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers, _
DataOption2:=xlSortNormal
End With
Application.ScreenUpdating = True
End Sub

Ich hoffe, das hilft!
Gruss bully
Anzeige
AW: Teil von Zellenwert Importieren
10.12.2006 11:04:55
Zellenwert
Hi Bully,
Sub GetData(wks As Worksheet, lngStart As Long, lngEnd As Long)
Dim i As Long, k As Long
Application.ScreenUpdating = False
k = 10                                                   'Startreihe
wks.Rows("10:65536").Delete                              'Werte löschen
'Daten übertragen:
With Sheets("Daten")
For i = 2 To .Cells(.Rows.Count, 3).End(xlUp).Row
If .Cells(i, 20) >= lngStart And .Cells(i, 20) <= lngEnd Then
wks.Cells(k, 1) = wks.Cells(6, 4)               'Index
'wks.Cells(k, 2) = .Cells(i, 2)                  'Bez.
wks.Cells(k, 2) = Left(.Cells(i, 2), 4)
wks.Cells(k, 3) = Right(.Cells(i, 2), 3)
wks.Cells(k, 5) = .Cells(i, 20)                 'Datum
wks.Cells(k, 5).NumberFormat = "ddmmyyyy"       'Format
wks.Cells(k, 6) = .Cells(i, 24)                 'Eber Rasse
wks.Cells(k, 7) = .Cells(i, 23)                 'Eber-Zeichen
wks.Cells(k, 9) = .Cells(i, 26)                 'KB-Art
wks.Cells(k, 10) = .Cells(i, 25)                'KB-Anzahl
k = k + 1
End If
Next
wks.Range("L1") = k - 10                              'Anzahl
End With
'sortieren (aufsteigend=xlAscending; absteigend=xlDescending):
With wks
.Range("B10:AE" & .Cells(.Rows.Count, 3).End(xlUp).Row).Sort _
Key1:=.Range("D10"), _
Order1:=xlAscending, _
Key2:=.Range("C10"), _
Order2:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers, _
DataOption2:=xlSortNormal
End With
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
Danke!
10.12.2006 19:49:58
bully
Hi Reinhard,
vielen Dank für die Lösung meines Problems. Es funktioniert fehlerfrei! Genau so habe ich mir die Lösung vorgestellt, aber bei meinen fehlenden Kenntnissen bin ich natürlich nicht soweit gekommen. Nochmals vielen Dank.
Gruss bully
;

Forumthreads zu verwandten Themen

Teile von Zahlen auslesen und einfügen
Zahlen

Hallo Leute,
ich habe ein Problem mit Zahlenformaten.
In meiner Tabelle steht der Text '4917234598' (natürlich viele solcher Zahlen untereinander.
Jetzt möchte ich, daß diese Zahl (später eine ganze Spalte) über Makro so aufbereitet wird, daß aus '4917234598' 017234598 wird.
08.08.2008 22:57:00
Thread-ID: 1000426
21 Beiträge
Anzeige
Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Anzeige
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Anzeige
MIN-Wert von bestimmten Zellen auslesen
bestimmten

Hallo zusammen,
ich habe folgendes Problem, welches sich erstmal gar nicht schwierig anhört, nur bei der Umsetzung hapert es noch ein bißchen.
Ich habe in meiner Excel Tabelle bspw... folgendes stehen
Zeile 12: I12=test, J12=4
Zeile 14: C14=test, D14=3, H14=test, I14=6
Zeile...
14.01.2009 11:17:03
Thread-ID: 1039535
10 Beiträge
teilen von zellen
zellen

Die Datei https://www.herber.de/bbs/user/58432.xls wurde aus Datenschutzgründen gelöscht
hallo leute
da ich dieses jahr zum erstmal hier bin, nochmal alles gute für 2009.
ich habe da mal wieder ein problem, kann mir da jemand helfen?
;-))
beispiel anbei.
leider keine v...
15.01.2009 15:47:00
Thread-ID: 1040185
4 Beiträge
Text in Fußzeile aus Zelle ziehen
Sandra

Hallo zusammen!
Ich brauche mal wieder Eure Hilfe.
Meine Exceltabelle (ein Protokoll) soll im linken Teil der Fußzeile einen Text bekommen, der automatisch aus einer Zelle gezogen wird. So das sich die Fußzeile immer aktualisiert, wenn die Zelle geändert wird. Mit einer Formel geht es j...
29.01.2009 11:29:24
Thread-ID: 1044904
23 Beiträge
Anzeige
Zufällig einen Text ausgeben aus best. Zellen
Eddie

Hallo und Guten Abend.... habe mal wieder ein Problem...
Ich will gerne aus einer Anzahl von zellen (ca 100 Zeilen) .. wo bestimmte Sätze drin stehen diese Zufällig in einer Bestimmten zelle anzeigen lassen ....
Vielleicht hat ja jemand schon sowas gemacht ?
thx schon einmal
G...
15.02.2009 20:14:00
Thread-ID: 1050974
7 Beiträge
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
4 Beiträge
Linke Zelle aus Bereich ermitteln
Peter

Guten Abend
"BenannterBereich" bezieht sich auf Tabelle1!A1:E1 (es handelt sich um verbundene Zellen)
Nun möchte ich RG nur die Zelle A1 zuweisen. Wie muss ich untenstehnder Code dazu erweitern?
Danke für eine Antwort.
Gruss, Peter
Set RG = ThisWorkbook.Names("BenannterBerei...
14.03.2009 23:59:34
Thread-ID: 1060317
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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