Supportnet / Forum / Tabellenkalkulation

Hallo ich habe ein problem, wenn auch ein sehr kleines, mit excel/vba. Ich möchte eine Tabellenkalkulation erstellen in der man aufgefordert wird einen name und spezifische daten des namen einzugeben, bis hier logischerweise kein problem. Um eine übersicht zu gewährleisten möchte ich das wenn man zu den gleichen namen weitere des spezifischen teils eingibt diese untereinerander in der tabelle aufgelistet werden sollen <-- mein problem wie geht das? bei mir werden immer die alten daten in der gleichen spalte /zeile überschrieben.

Hallo,

deine Angaben sind etwas mager , aber ich habe es so verstanden , dass du die Daten immer im gleichen Feld eingetragen werden.

Du musste die Speicherung der Daten so ändern, dass die entsprechende Freie Zelle genommen wird.

Gruß

Helmut

Hi Illo,

die letzte belegte Zelle einer Spalte - im Beispiel Spalte A - kannst du mit diesem Code ermitteln

Sub letzte_belegte_zeile()
    Dim loLetzte As Long
    With Worksheets("Tabelle1")
        loLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
    End With
End Sub

Deine Einträge müssen also dann immer ab der nächsten Zeile erfolgen.

Bis später,
Karin

hi all :))

gruss nighty

Sub makro01()
Rem letzte zeile eines sheets
Cells(1, 1) = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Rem letze spalte eines sheets
Cells(2, 1) = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
Rem letzte zeile einer spalte
Cells(3, 1) = ActiveSheet.Range("D" & Rows.Count).End(xlUp).Row
Rem letzte spalte einer zeile
Cells(4, 1) = ActiveSheet.Range("3:3").End(xlUp).Column
End Sub

hi danke für die hilfe ;)

• Handbuch zur Einführung in die VBA Programmierung in EXCEL
• VBA Skript für Farbumstellung an Powerpointfolien
• mehre Excel Arbeitsblaetter in PowerPoint via VBA ansprechen