Microsoft Excel

Herbers Excel/VBA-Archiv

Zellensuche & Kopieren


Betrifft: Zellensuche & Kopieren
von: Giorgi
Geschrieben am: 15.04.2019 12:47:45

Halloo ans Forum,

ich habe mal wieder ein Problem.
Ich hab ein Makro das etwas kopiert und in ein neues Sheet kopiert.

Ich will ein Makro erstellen,dass die Spalte G nach Value abscannt und die kopierten Werte dementsprechend in der ersten Zeile einfügt.

Bsp: Spalte G2:G29 ist befüllt mit Text. Das Makro durchläuft die Spalte G und fügt dementsprechend die kopierten Werte in A2 ein.

Spalte G10:G13 ist befüllt mit Zahlen etc. . Das Makro durchläuft wieder die Spalte G und fügt die kopierten Werte in A10 ein.

Für Anregung bin ich sehr dankbar.

Gruß Giorgi.

  

Betrifft: AW: Zellensuche & Kopieren
von: Giorgi
Geschrieben am: 15.04.2019 13:03:05

Public Sub Erste_freie_Zeile()
Dim lngLast As Long
lngLast = Cells(Rows.Count, 7).End(xlUp).Row + 1
End Sub
Hab es doch gefunden. Kann geschlossen werden


  

Betrifft: AW: Zellensuche & Kopieren
von: Giorgi
Geschrieben am: 15.04.2019 13:19:04

Bzw. der Code behebt das Problem nur teilweise, da es auf A 30 bzw. auf A14 aus den Beispielen springt. Hat noch jemand einw Idee?


  

Betrifft: AW: Zellensuche & Kopieren
von: cysu11
Geschrieben am: 15.04.2019 17:21:19

Hi Giorgi,

lade doch bitte deine Beispieldatei hoch, ist dann verständlicher für alle!

LG
Alexandra


  

Betrifft: AW: Zellensuche & Kopieren
von: Giorgi
Geschrieben am: 16.04.2019 09:24:47

Guten Morgen,

ich hab einmal die Datei hochgeladen

http://www.herber.de/bbs/user/129176.xlsx




Gruß Giorgi


  

Betrifft: AW: Zellensuche & Kopieren
von: cysu11
Geschrieben am: 16.04.2019 16:46:27

Hi Giorgi,

meinst du das so?

http://www.herber.de/bbs/user/129189.xlsm

LG
Alexandra