Thema Datum  Von Nutzer Rating
Antwort
Rot kopieren von Daten
 18.12.2009 23:26:37 LH
NotSolved
24.05.2015 16:32:45 Chris1807
NotSolved

Ansicht des Beitrags:
Von:
LH		 Datum:
18.12.2009 23:26:37		 Views:
1794		 Rating:
     
Antwort:
  Ja
Thema:
kopieren von Daten
ich möchte alle Zahlen kopieren in jeweils ein neues blatt wenn
eine Zahl dann ein Punkt und wieder eine Zahl.
Also 1.1, 1.2, 1.3 in ein Blatt aber 2.1, 2.4 in ein neues Blatt.

Sub Auft()
Dim wks As Worksheet
Dim arr As Variant
Dim i As Integer, y As Integer, iRow As Integer, iRowT As Integer
Dim sTxt As String, sNo As String

Set wks = Worksheets(1)

Call DeleteWks

For iRow = 1 To wks.Cells(Rows.Count, 1).End(xlUp).Row
sTxt = wks.Cells(iRow, 1).Value

If InStr(sTxt, ".") Then
arr = Split(sTxt, ".")

If UBound(arr) = 1 Then
If arr(0) & "." & arr(1) > sNo Then
sNo = arr(0) & "." & arr(1)
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = wks.Cells(iRow - 1, 1).Value

iRowT = 3
Rows(iRowT).Value = wks.Rows(iRow).Value
iRowT = iRowT + 1
ActiveSheet.Range("a1").Value = "Objekt"
ActiveSheet.Range("b1").Value = "TA"
ActiveSheet.Range("c1").Value = "Anzahl"
ActiveSheet.Range("d1").Value = "Bauteilnummer"
ActiveSheet.Range("e1").Value = "Bezeichnung"
ActiveSheet.Range("f1").Value = "Spanne"
ActiveSheet.Range("g1").Value = "EK EP"
ActiveSheet.Range("h1").Value = "EK GP"
ActiveSheet.Range("i1").Value = "VK EP"
ActiveSheet.Range("j1").Value = "VK GP"
Columns("G:J").Select
Selection.NumberFormat = "#,##0.00 €"

Else
Rows(iRowT).Value = wks.Rows(iRow).Value
iRowT = iRowT + 1
End If



End If

End If
Next iRow

ich hoffe es kann mir jemand einen Tip geben wo der Fehler hängt

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot kopieren von Daten
 18.12.2009 23:26:37 LH
NotSolved
24.05.2015 16:32:45 Chris1807
NotSolved