Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon mäthesacker vom 13.08.2019, 14:37 Options
Schleife über eine ganze Spalte
Wie kann ich eine schleife für eine ganze spalte schreiben?
Dim lng As Integer
For lng = 7 To 17 Step 1
Range("B lng").Activate
If Mid(Range("B lng").Value, 11, 4) = "S811" Then Range("E lng") = Mid(Range("B lng").Value, 11, 7)
Next lng
funktioniert da überraschenderweise ;) nicht. wie kann ich es schreiben, dass er automatisch eine zeile weiter nach unten springt?
danke Mattes
Dim lng As Integer
For lng = 7 To 17 Step 1
Range("B lng").Activate
If Mid(Range("B lng").Value, 11, 4) = "S811" Then Range("E lng") = Mid(Range("B lng").Value, 11, 7)
Next lng
funktioniert da überraschenderweise ;) nicht. wie kann ich es schreiben, dass er automatisch eine zeile weiter nach unten springt?
danke Mattes
Antwort 1 von Hajo_Zi vom 13.08.2019, 14:41 Options
Hallo Mattes,
Option Explicit
Sub Mattes()
Dim lng As Long
Dim LoLetzte As Long
' letzte belegte Zeile unabhängig von Excelversion für Spalte B(2)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
For lng = 7 To LoLetzte
If Mid(Cells(lng, 2).Value, 11, 4) = "S811" Then Cells(lng, 5) = Mid(Range("B" & lng).Value, 11, 7)
Next lng
End Sub
Gruß Hajo
Option Explicit
Sub Mattes()
Dim lng As Long
Dim LoLetzte As Long
' letzte belegte Zeile unabhängig von Excelversion für Spalte B(2)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
For lng = 7 To LoLetzte
If Mid(Cells(lng, 2).Value, 11, 4) = "S811" Then Cells(lng, 5) = Mid(Range("B" & lng).Value, 11, 7)
Next lng
End Sub
Gruß Hajo
Ähnliche Themen
schleife beenden
sebal 13.11.2007 - 101 Hits - 5 Antworten
schleife beim installieren von winxp
reese 18.11.2007 - 72 Hits - 8 Antworten
Excel:Die ganze Spalte mit einem"Button" nach Datum sotieren
Keke 06.02.2008 - 50 Hits - 2 Antworten
Berechnung nur wenn Datum in Zelle
spalte 10.02.2008 - 92 Hits - 5 Antworten
Sort
Ala 18.03.2008 - 18 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
