Thema Datum  Von Nutzer Rating
Antwort
13.12.2015 15:06:35 Arek
NotSolved
Blau Wert in der nächste freie Zeile einfügen
 13.12.2015 18:51:06 Gast59223
*****
Solved
13.12.2015 19:08:28 Arek
NotSolved

Ansicht des Beitrags:
Von:
Gast59223		 Datum:
13.12.2015 18:51:06		 Views:
1079		 Rating:
     
Antwort:
 Nein
Thema:
Wert in der nächste freie Zeile einfügen

Hallo! Also folgender Code fügt dir das da ein. Er sucht sich die nächste Zelle ab 25. Geht allerdings auch über 37 weiter. Da evtl. vorher noch bei dem Wert Zeile dieses Ergebnis abfangen.

Gruß

Sub Wariant()
 
Dim WSDane  As Worksheet
Dim rgBereich As Range
Dim zeile As Integer

Set WSDane = ThisWorkbook.Worksheets("Dane")

If ActiveSheet.Cells(Rows.Count, 10).End(xlUp).Row < 24 Then
    zeile = 24
Else
    zeile = ActiveSheet.Cells(Rows.Count, 10).End(xlUp).Row
End If
   
WSDane.Range("C26:D26").Copy
ActiveSheet.Cells(zeile + 1, 10).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
 

Range("C26:D26").ClearContents
Range("D29").Value = "Ready"
     
End Sub

 

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
13.12.2015 15:06:35 Arek
NotSolved
Blau Wert in der nächste freie Zeile einfügen
 13.12.2015 18:51:06 Gast59223
*****
Solved
13.12.2015 19:08:28 Arek
NotSolved