Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1296to1300
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
1296to1300
1296to1300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ersten Zeichen einer Zelle ermitteln

ersten Zeichen einer Zelle ermitteln
11.02.2013 09:04:00
kikimat
Hallo,
kann mir vielleicht jemand einen Tip geben, was an meinem Code falsch ist. Ich möchte, dass in einer Spalte jede Zelle darauf überprüft wird, ob die ersten vier Zahlen 1300 sind und wenn ja, soll darunter eine Zeile eingefügt werden. Bei meinem Code erscheint immer die Fehlermeldung "Typen unverträglich"
set Spalte= Thisworkbook.Worksheets(1).Columns("E:E")
For Each rng In Spalte
If Left(rng.Value, 4) = "1300" Then
rng.Offset(1, 0).EntireRow.Insert
End If
Next
Gruß, kikimat

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ersten Zeichen einer Zelle ermitteln
11.02.2013 09:18:00
Klaus
Hi,
du kannst das rng nicht über die ganze Spalte gehen lassen, wie du es probierst. Gib mal zwischendurch rng.select ein und geh in den Debugmodus: du siehst, dass rng nicht die Zelle, sondern die ganze Spalte markiert.
Selbst wenn das behoben ist: willst du wirklich eine Schleife über knapp 66.000 Zeilen laufen lassen? Ich hab den Code mal umgeschrieben:
Letzte Zeile wird gesucht, schleife geht nur von letzter bis erster Zeile, und die Schleife läuft rückwärts (das sollte man beim einfügen / löschen immer so machen) damit das INSERT den Bereich nicht beim Durchlauf vergrößert.
Übrigens: "1300" muss nicht in Anführungsstriche, wenns eine Zahl ist. Dann reicht = 1300.
Option Explicit
Sub test()
Dim spalte As Range
Dim rng As Range
Dim lRow As Long
Dim lZeile As Long
'With ThisWorkbook.Worksheets(1)
'    lRow = .Cells(.Rows.Count, 5).End(xlUp).Row
'    Set spalte = ThisWorkbook.Worksheets(1).Range("E1:E" & lRow)
'End With
'For Each rng In spalte
'If Left(rng.Value, 4) = "1300" Then
'rng.Offset(1, 0).EntireRow.Insert
'End If
'Next
With ThisWorkbook.Worksheets(1)
For lZeile = lRow To 1 Step -1
lRow = .Cells(.Rows.Count, 5).End(xlUp).Row
If VBA.Left(.Cells(lZeile, 5).Value, 4) = 1300 Then
.Cells(lZeile, 5).Offset(1, 0).EntireRow.Insert
End If
Next lZeile
End With
End Sub
Grüße,
Klaus M.vdT.

Anzeige
AW: ersten Zeichen einer Zelle ermitteln
11.02.2013 09:42:44
Beverly
Hi,
falls deine Zellinhalte keine Formelergebnisse sind, kannst du es so lösen:
For Each rng In ThisWorkbook.Worksheets(1).Columns("E:E").SpecialCells(xlCellTypeConstants)
If Left(rng.Value, 4) = 1300 Then rng.Offset(1, 0).EntireRow.Insert
Next
Sind es Formelergebnisse, dann ersetze xlCellTypeConstants durch xlCellTypeFormulas.

AW: ersten Zeichen einer Zelle ermitteln
11.02.2013 12:51:38
kikimat
Super, vielen Dank für die Hilfe! Ich habe es jetzt mit der zweiten Variante gelöst und statt der ganzen Spalte doch nur einen bestimmten range angegeben. Ist ja wirklich Quatsch alle Zellen zu durchsuchen. Aber warum funktioniert es denn jetzt mit specialcells und vorher nicht?

Anzeige
AW: ersten Zeichen einer Zelle ermitteln
11.02.2013 13:51:31
Klaus
Aber warum funktioniert es denn jetzt mit specialcells und vorher nicht?
Hi,
vorher hat er pro Schleifendurchlauf die ganze Spalte als Range angenommen statt jeder Zelle der Spalte (siehst du, wenn du rng.select in den Code einbaust). Durch "specialcells" wurde die Spalte auf ein begrenztes Range reduziert, dadurch greift rng.select jetzt nicht mehr die ganze Spalte, sondern jede Zelle einzeln pro Schleifendurchlauf.
(nach meinem Verständniss von Logik hätte aber schon die erste Version funktionieren müssen, keine Ahnung warum "for each" die Spalte nicht zellenweise durchläuft)
Grüße,
Klaus M.vdT.
Anzeige

346 Forumthreads zu ähnlichen Themen

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Anzeige
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
in spalte müssen 2 gleiche zahlen vorh. sein ...
Jessi

hallo zusammen,
suche nach einem makro, dass in spalte A überprüft ob von den dort geschriebenen zahlen jeweils zwei gleiche vorhanden sind. es geht um eine doppelbelegung eines zimmers. die zahl ist die zimmer-nr.
wäre z.b. nur einmal eine zahl in der spalte, wäre es möglich in das jew...
04.10.2008 15:33:00
Thread-ID: 1014154
5 Beiträge
Anzeige
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Eine Zahl mit vorhandener Zahlenliste vergleichen
Niklas

Hallo Leute!
Es geht darum, eine eingegebene Zahl mit einer vorhandenen Zahlenliste vergleichen und die beiden nächstgelegenen Zahlen der Zahlenliste verwenden!
zur veranschaulichung:
ich habe die die zahlenliste : 1 , 2, 3, 4, 5, 6, 7
der eingegebene Wert ist z.B 1.5 dann soll...
17.10.2008 09:49:22
Thread-ID: 1017045
8 Beiträge
vorgegebene Summe aus Zahlen berechnen
mArsupiLami

Moin!
Ich benötige um regelmäßige Fehlerkorrekturen laufen zu lassen ein Script, dem ich eine Summe vorgebe und eine Range aus Zahlen (von mir aus Zellen A:A), das mir die Zusammenstellung aus Zahlen berechnet, die meine gesuchte Summe ergeben (Noch besser: Alle Kombinationen aus der Zahlen...
21.11.2008 11:25:35
Thread-ID: 1026668
6 Beiträge
Zelle des erstes Vorkommen eines Zeichens ausgeben
-s

Hallo Forum,
ich habe in Zeile 1 in jeder Spalte einen Buchsteben stehen:
a|b|c|c|c|e|
Wie kann ich die Zelle ausgeben lassen, in der beispielsweise das "c" das erste mal vorkommt? Als Ergebnis soll dann C1 ausgegeben werden.
Besten Dank!
-s
07.12.2008 21:32:00
Thread-ID: 1030929
4 Beiträge
Autofilter - Anzahl vorh. Sätze
KViertel

Hallo in die Runde,
In einem Tabellenblatt wird In VBA ein Autofilter gesetzt. Die dabei angezeigten Sätze sollen in ein anderes Tabellenblatt kopiert werden. Wenn jetzt keine Sätze vorhanden sind, wird die Sub abgebrochen. In der Recherche habe ich einen Hinweis zu Subtotal gefunden, weiß...
11.12.2008 11:45:00
Thread-ID: 1031999
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
11
3
4
3
4
7
5
3
2
4
2
2
5
2
7
11
2
4
4
3
4
5
10
2