Zeilenanzahl festlegen per VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Nico,
Daten löschen ist das kleinste Problem, ich lese aber auch - viele verknüpfte Formeln.
Als Fan von Makro Lösungen bekomme ich bei vielen Formeln schnell Bauchschmerzen, denn
zu viele Formeln verlangsamen den Rechner, weil er bei jeder Eingabe viel berechnen muss.
Ich liebe feste Werte als Constants. Da gibt es nichts zu berechnen.
Meine Frage, inwieweit lassen sich die Daten, die sich nicht mehr veraendern umwandeln?
Namen, Adressen, Telfon Nr. Kunden Nr. -als Formeln- im Blatt haben ist m.E. überflüssig.
Vielleicht sollten wir auch wissen um wie viele Tabellen es geht, ob alle gleich aufgebaut
sind, und wie die grundlegende Datenstruktur aussieht, z.B. Text der Spaltenüberschriften.
Es gibt viele Profis die dazu sicher noch gute Ideen haben. Wir müssten aber die Struktur kennen.
Evtl. eine kleine Beispieldatei mit anonymen Daten wie "Mustermann"
mfg Piet

Sub Mach() Dim vInput As Variant Dim WS As Worksheet vInput = Application.InputBox("Bitte Ganzzahl eingeben:", "Titel lösche Daten") If vInput = False Or vInput = "" Then Exit Sub If Not IsNumeric(vInput) Then MsgBox "keine Zahl" Exit Sub End If If CCur(Round(vInput, 0)) CCur(vInput) Then MsgBox "keine Ganzzahl" Exit Sub End If For Each WS In ThisWorkbook.Worksheets WS.Rows(CLng(vInput) + 10 & ":10000").Delete Next WS End Sub

Hallo Nico,
hier mein Lösungsvorschlag.
Gruß
Franz

Sub ImmobilienlisteReduzieren()
Dim wkbAktiv As Workbook
Dim wks As Worksheet
Dim intS As Integer
Dim Zeile1 As Variant, ZeileL As Long, StatusCalc As Long
Dim msgText As String, msgTitel As String
msgTitel = "Zeilen in Immobilienliste löschen"
Set wkbAktiv = ActiveWorkbook
msgText = "Anzahl Datensätze in Datei"
Zeile1 = Application.InputBox(msgText, msgTitel, ActiveCell.Row - 9, Type:=1)
If Zeile1 = False Then
'Abbrechen wurde gewählt
ElseIf Zeile1 = 1 sein!"
MsgBox msgText, vbOKOnly + vbInformation, msgTitel
Else
Zeile1 = 9 + Zeile1
ZeileL = 510  'letzte zu löschende Zeile
msgText = "In jedem Tabellenblatt jetzt die Zeilen " & Zeile1 _
& " bis " & ZeileL & " löschen?" & vbLf & vbLf _
& "Letzte Gelegenheit abzubrechen!"
If MsgBox(msgText, vbOKCancel + vbDefaultButton2 + vbQuestion, msgTitel) = vbOK Then
'Makrobremsen lösen
With Application
.EnableEvents = False
StatusCalc = .Application.Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
For intS = wkbAktiv.Worksheets.Count To 1 Step -1
Set wks = wkbAktiv.Worksheets(intS)
With wks
.Range(.Rows(Zeile1), .Rows(ZeileL)).Delete shift:=xlShiftUp
End With
Next
'Makrobremsen zurücksetzen
With Application
.EnableEvents = True
.Calculation = StatusCalc
.ScreenUpdating = True
End With
End If
End If
End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilenanzahl festlegen per VBA

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread