Thema Datum  Von Nutzer Rating
Antwort
Rot Makro Wert & Zellbezug aus letzte Zeile von Tabelle 1 in Tabelle 2
10.08.2021 14:11:10 Julia
NotSolved
10.08.2021 15:26:13 volti
NotSolved
10.08.2021 15:33:20 volti
NotSolved
10.08.2021 18:58:22 Gast14375
NotSolved
10.08.2021 19:56:55 volti
Solved
11.08.2021 13:12:55 Julia
Solved

Ansicht des Beitrags:
Von:
Julia
Datum:
10.08.2021 14:11:10
Views:
134
Rating: Antwort:
  Ja
Thema:
Makro Wert & Zellbezug aus letzte Zeile von Tabelle 1 in Tabelle 2

Hallo ich habe folgendes Makro:

Sub BestellungErstellen()
Dim LastRow, i, sht As Worksheet
With Sheets("Bestellung")
LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
For i = 43 To LastRow
On Error Resume Next
Set sht = Sheets(.Range("D" & i).Value)
If Err.Number > 0 Then
Sheets("Vorlage").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = .Range("D" & i) & "," & " " & .Range("E" & i)

    'Kunden Name
    Range("D1").Select
    ActiveCell.Formula = .Range("D" & i)
    
    'Kunden Vorname
    Range("D2").Select
    ActiveCell.Formula = .Range("E" & i)
    
    'Kunden Schule
    Range("D3").Select
    ActiveCell.Formula = .Range("AK" & i)
    
    'Kunden Allergie
    Range("D4").Select
    ActiveCell.Formula = .Range("AI" & i)
    
    'Kunden Tour
    Range("E2").Select
    ActiveCell.Formula = .Range("B" & i)
    
    'Kunden Kundennummer
    Range("E3").Select
    ActiveCell.Formula = .Range("C" & i)

                     
   'Kunden Menü bestellung über den ganzen Monat
    Dim j As Integer
    k = 6
    S = 5
    For j = 6 To 36
    
            
      Range("C" & k).Select
        ActiveCell.Formula = .Range("F" & i) 'Hier muss noch rein, dass die Spalte in einer Variable hochezählt wird
        k = k + 1
      
        
        Next j
End If

Next
End With
End Sub

 

leider komme ich an der Rot makierten stelle nicht weiter.

Das Makro soll an dieser Stelle aus Tabelle (Bestellung) aus der letzten Zeile die Spalten F bis AJ kopieren und den Wert, sowie den Zellbezug in vorher neu erstellte Tabelle einfügen. Dort dann jeweils in die Spalte C6 bis C36. Also von Tabelle Bestellung F (letzte Zeile) in Tabelle neu C6, für  Tabelle Bestellung G (letzte Zeile) in Tabelle neu C7,... usw.

 

Die Werte übernimmt er allerdings leider nicht den Zellbezug, ich bräuchte aber den Zellbzug da sich die Werte ab und zu ändern können.

Also in der Zelle soll dann so was hinterlegt sein wie =Bestellung(F & letzte Zeile)

Vielen Dank schon mal im Voraus. 

 


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 Makro Wert & Zellbezug aus letzte Zeile von Tabelle 1 in Tabelle 2
10.08.2021 14:11:10 Julia
NotSolved
10.08.2021 15:26:13 volti
NotSolved
10.08.2021 15:33:20 volti
NotSolved
10.08.2021 18:58:22 Gast14375
NotSolved
10.08.2021 19:56:55 volti
Solved
11.08.2021 13:12:55 Julia
Solved