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

Bei Teilergebnissen das Wort Mittelwert löschen

Bei Teilergebnissen das Wort Mittelwert löschen
26.06.2008 11:29:00
edie
Hallo zusammen,
bei teilergebnissen steht in der Spalte A eine Datumsreihe z.B. 22.02.2008 Mittelwert
Wie bekomme ich mithilfe eines VBA-Codes nachinein das Wort Mittelwert weg, damit nur das Datum steht.

Sub Makro1()
Selection.Subtotal GroupBy:=1, Function:=xlAverage, TotalList:=Array(3, 4, _
5, 6, 7, 8, 9, 10), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
ActiveSheet.Outline.ShowLevels RowLevels:=2
End Sub


Wäre super, wenn mir jemand helfen könnte!
Vielen Dank im Voraus.
Viele Grüße

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Teilergebnissen das Wort Mittelwert löschen
27.06.2008 00:55:00
Tino
Hallo,
hier mal einige Möglichkeiten.
1. Möglichkeit
Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 4), Array(2, 9)), TrailingMinusNumbers:=True
2. Möglichkeit
Columns("A:A").Replace What:=" Mittelwert", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
3. Möglichkeit
Dim A As Byte, strDatum As String
Application.ScreenUpdating = False
For A = 1 To Cells(Rows.Count, 1).End(xlUp).Row
strDatum = Trim$(Replace(Cells(A, 1).Value, "Mittelwert", ""))
If IsDate(strDatum) Then
Cells(A, 1) = CDate(strDatum)
End If
Application.ScreenUpdating = True
Next A
Gruß Tino

http://www.VBA-Excel.de


Anzeige
AW: Funktioniert 100%! Vielen Dank
27.06.2008 13:48:00
edie
Hallo Tino,
es ist gerade dass, was ich benötige!
Vielen herzlichen Dank.
Grüße

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige