Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBA Ermittel Letzte Spalte und Zeile mit Inhalt

Frage Entwicklung VB for Applications

Mitglied: Phoboz

Phoboz (Level 1) - Jetzt verbinden

27.02.2013, aktualisiert 28.02.2013, 6267 Aufrufe, 4 Kommentare

Hallo,

hab meinen Ansatz zur zeit auf einem anderen Rechner, kann den Code jetzt grade nicht posten, aber zur Aufgabe. Vllt. kann mir auch so einer helfen.

Also ich kriege ein Excel-Datei zugeschickt.
Zuerst muss ich einmal raufinden bis zu welcher Spalte in Zeile 1 das Sheet geht z.B bis Z, weil danach alle Zellen leer sind.

am besten wäre wenn er mir diese Spalten noch zählt z.B ist gleich 26

Das gleiche muss ich auch für die Zeile haben.


Grüße

Phoboz
Mitglied: LordXearo
27.02.2013 um 14:13 Uhr
Hi,

du kannst in EXCEL VBA die "Worksheet" Funktionen nutzen. Du selektierst von A1 bis XYZ1 und nutzt die Count Funktion. In jeder Spalte in der sich ein Wert befindet zählt Count +1.

So könntest du rausfinden wieviele Spalten genutzt werden. Vorrausgesetzt dazwischen ist keine leere Spalte.

Mfg

Xearo
Bitte warten ..
Mitglied: TsukiSan
28.02.2013, aktualisiert 01.03.2013
Hallo Phoboz,

in Excel kannst du mit
01.
MsgBox "Reihe:" & Selection.Row & vbCrLf & "Spalte:" & Selection.Column
die aktuelle Position ermitteln, also Reihe und Spalte.

Mit der
01.
Selection.End(xlToRight).Select 
02.
    ' & 
03.
Selection.End(xlToLeft).Select 
04.
 
05.
'oder 
06.
Selection.End(xlDown).Select 
07.
    ' & 
08.
Selection.End(xlUp).Select
kannst du jeweils immer in die letzte Zeile, bzw. Spalte springen oder wieder zurück.
das hat aber kleine "Häkchen und Öschen"

Gruss
Tsuki
Bitte warten ..
Mitglied: Phoboz
28.02.2013, aktualisiert um 08:11 Uhr
Hallo,

danke für die Antworten bin jetzt soweit:

Ich wähle die Datei aus, die er öffnen soll.
Anschließend soll er in diese Datei gehen und mir in Worksheet(1) die Sachen zählen.

Wie mache ich das jedoch, muss ja iwo Activesheet.Worksheet(1) vorschreiben.

Brauch jetzt iwie was, wie ich ihm sage AusgeählteDatei.AktiveWorkbook.Worksheet(1). Kann ich sowas vor Cells.Find oder Range schreiben?
Hier der Code, der Code funktioniert bis zum "with" da brauch ich eure Hilfe, ich denke auch wenn der Code falsch ist, sagter aus, was ich haben möchte

01.
Sub HCMS() 
02.
 
03.
Dim filePath As String 
04.
Dim lastColumn As Integer 
05.
Dim lasRow As Integer 
06.
 
07.
'Open excel-file 
08.
MsgBox "Bitte wählen Sie eine xls.Datei aus." 
09.
 filePath = Application.GetOpenFilename 
10.
 
11.
Set wkS = Workbooks.Open(filePath).Sheets(1) 
12.
       
13.
With wkS 
14.
lastColumn = .Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column 
15.
 MsgBox lastColumn 
16.
Lastrow = .Range("A65536").End(xlUp).Offset(1, 0).Row - 1 
17.
 MsgBox Lastrow 
18.
 End With 
19.
  
20.
End Sub
Bitte warten ..
Mitglied: TsukiSan
01.03.2013 um 07:05 Uhr
Hallo Phoboz,

ich würde vorschlagen, dir erst einmal verschiedene Informationen zu verinnerlichen.
Schau mal hier oder hier oder auch hier.

Ich denke, dann hast du schnell deine Aufgabenstellung alleine gelöst und kannst da ganz zufrieden mit dem Ergebnis sein!

Gruss
Tsuki
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
VBA Excel Formel auf letzte Spalte übertragen
Frage von KalisserMicrosoft Office2 Kommentare

Hallo, ich möchte gerne per Makro eine Formel von der Zelle O1 und O2 bis zur letzten benutzen Spalte ...

Debian
Letzte Zeile lesen und einfügen
gelöst Frage von Fenris14Debian4 Kommentare

Guten Tag, ich versuche mich mal wieder ein wenig an Scripten und habe hier jetzt das Problem das ich ...

Datenbanken
SQL: Inhalte aus einer Spalte mit den Inhalten aus mehreren Spalten einer zweiten Tabelle vergleichen
gelöst Frage von sqlbeginnerDatenbanken4 Kommentare

Guten Tag ich habe folgende Fragen Frage 1: Tabelle1 , Spalte A in dieser stehen Kürzel Tabelle2, Spalte A, ...

VB for Applications
Sheet in hinter letzten, verwenderten Spalte einfügen
gelöst Frage von aivilonVB for Applications9 Kommentare

Moin Zusammen Ausgangslage: Ich habe zwei Sheets. Sheet "SCData" ist Variabel in der Grösse. Darin befindet sich eine Pivot, ...

Neue Wissensbeiträge
MikroTik RouterOS

Mikrotik - Lets Encrypt Zertifikate mit MetaROUTER Instanz auf dem Router erzeugen

Anleitung von colinardo vor 5 StundenMikroTik RouterOS4 Kommentare

Einleitung Folgende Anleitung ist aus der Lage heraus entstanden das ein Kunde auf seinem Mikrotik sein Hotspot Captive Portal ...

Sicherheit

Sicherheitslücke in HP-Druckern - Firmware-Updates stehen bereit

Information von BassFishFox vor 6 StundenSicherheit

Ein weiterer Grund, dass Drucker keinerlei Verbindung nach "auswaerts" haben sollen. Unter Verwendung spezieller Malware können Angreifer aus der ...

Administrator.de Feedback

Entwicklertagebuch: Die Startseite wurde überarbeitet

Information von admtech vor 8 StundenAdministrator.de Feedback9 Kommentare

Hallo Administrator User, mit dem Release 5.7 haben wir unsere Startseite überarbeitet und die Beiträge und Fragen voneinander getrennt. ...

Vmware

VMware Desktopprodukte sind verwundbar

Information von Penny.Cilin vor 13 StundenVmware

Die VMware-Anwendungen zum Umgang mit virtuellen Maschinen Fusion, Horizon Client und Workstation sowie die Plattform NSX sind verwundbar. Davon ...

Heiß diskutierte Inhalte
Visual Studio
Vb.net-Tool zum Erzeugen einer Outlook-E-Mail
Frage von ahstaxVisual Studio24 Kommentare

Hallo, ich möchte gerne ein vb.net-Tool schreiben, das am Ende eine Outlook-E-Mail erzeugt. Grundsätzlich ist mir klar, wie das ...

Windows Server
RDP macht Server schneller???
Frage von JaniDJWindows Server16 Kommentare

Hallo Community, wir betrieben seit geraumer Zeit diverse virtuelle Maschinen und Server mit Windows Server 2012. Leider haben wir ...

Windows Netzwerk
Netzwerk Neustrukturierung
Frage von IT-DreamerWindows Netzwerk16 Kommentare

Hallo verehrte Community und Admins, bei uns im Haus steht eine Neustrukturierung an. Dafür benötige ich von euch ein ...

Windows 10
Windows 10 dunkler Bildschirm nach Umfallen
Frage von AkcentWindows 1015 Kommentare

Hallo, habe hier einen Windows 10 Rechner der von einem User umgefallen wurde (Beine übers Knie, an den PC ...